similar to: lattice xyplot strip colors and location

Hi, I am learning xyplot. I have an example dataset attached. plotdata<-read.table("plotdata.txt",sep='\t',header=T,row.names=1) head(plotdata,n=4) y x type 1 -4.309601 -0.7448405 A 2 -4.715421 0.7875994 A 3 -2.310638 0.5455310 A 4 -2.685803 10.4116868 A xyplot(y~x,groups=type,plotdata, auto.key=T) This shows different colors for different

Hi list, Does any body know how I can create a margin area around the graphic created by xyplot (the same thing we do using par in plot function)? I tried viewport, but does not work. Here is the code: ============================================== require(grid) vp<- viewport(x=.1,y=.1,width=.6,height=.6,just=c("left", "bottom")) pushViewport(vp)

This is really a question of how to program this *BETTER*. It works as I have done it, but is quite ugly. I want to do a 3d scatterplot of the upper triangle of a matrix, where the z-values are the values in the matrix, and the row and column indices are the y- and x-values. The complete (11 by 11) matrix is mmtop94.2. Here is my awkward code: mmtop94.2[lower.tri(mmtop94.2)] <- NA # Here i

Hello everyone. I am using ggplot and I need some help to merge these two plots into one. plot_CR<-function(x,y,agentid,CRagent){   library(ggplot2)     agent<-CRagent[[agentid]] # To make following expression shorter   ggplot((data.frame(x=CRX,y=CRY,sr=agent$sr)))+   geom_point(aes(x,y,colour=cut(sr,c(0,-10,-20,-30,-40,-50,-60,-70,-80))))+   geom_text(aes(x,y,color=cut(sr,

Dear all, today I have writted the following code, to plot the contents of some matrices I have plot_shad_f function(f){ library(ggplot2) dev.new() plotdata<-melt(f) names(plotdata)<-c('x','y','z') v<-ggplot(plotdata, aes(x, y, z = z)) print(v + geom_tile(aes(fill=z))) } I would like to ask your help add a small circle in this plotting. What would be

I am trying to plot some data, but have got some difficulties with labels on the tick marks on the x-axes. There are 20 data points. All I want to do is to plot the Loss versus Lines. When I use xyplot, the first tick mark starts from 2 rather than 1, and also there is a NA as the final tick mark. Here is the R code you code give it a try: Would any body be able to fix this, please?

Dear All, I am trying to build a simple ggplot, but where the scale is reversed, i.e. the largest numbers are on the bottom. An example of the code I am using is > plotdata<-data.frame(x=1:10, y=runif(10)) > plot<-ggplot() > plot<-plot+layer(data=plotdata, mapping=aes_string(x='x',y='y'), geom='point', stat='identity', size=4) >

Hello R help mailing list, I'm having difficulty saving a series of figures in an analysis. I have attempted to save them in a for loop with the following code: for(i in 1:20){ sF<-paste("fig",i,".jpeg",sep="") jpeg(file=sF,width=600,height=500,quality=100,pointsize=12) attach(plotData) xyplot(CHC~1:13), detach(plotData) graphics.off() } If I break

Dear All (probably Hadley), I am now trying to customise some plots using a bar geom. I do not want to use the default binning statistic, but rather calculate the bar heigths separately. I do manage this, but for comparison purposes I would like to have a set of plots all with the same y-axis height. But I do not seem to find out how to fix the scale of the y-axis in this case. Any tips?

Dear all, I am basically a GIS user and am new to R. I am trying to write a data frame to a dbf file. *n.simulations <- 999 binomial <- kulldorff(geo, cases, population, NULL, pop.upper.bound, n.simulations, alpha.level, plot) cluster <- binomial$most.likely.cluster$location.IDs.included df <- data.frame(ID=seq(1,n.simulations,by=1), simloglkhd=binomial$simulated.log.lkhd)

Hello, everyone I have a piece of code that looks like this: mrets <- merge(mrets, BMM.SR=apply(mrets, 1, MyFunc, ret="BMM.AV120", stdev="BMM.SD120")) mrets <- merge(mrets, GM1.SR=apply(mrets, 1, MyFunc, ret="GM1.AV120", stdev="GM1.SD120")) mrets <- merge(mrets, IYC.SR=apply(mrets, 1, MyFunc, ret="IYC.AV120",

Dear List I am trying to draw a heatmap using ggplot2. In this heatmap I have faceted my data by 'infection' of which I have four. These four infections break down into two types and I would like to reorder the 'infection' column of my data to reflect this. Toy example below: library(ggplot2) # test data for ggplot reordering genes <- (rep (c(rep('a',4),

Is there a canonical means to apply a function over multiple arrays simultaneously? For example, if I wanted to plot each line with a different color? Or is a for loop conversion my best option? x <- seq(0, 8, by = 2) y <- matrix(1:15, nrow = 5, byrow = TRUE) my.colors <- heat.colors(3) drawLines <- function(row) { lines(x, row) # want corresponding 'my.colors' here }

Dear UserRs, I am trying to use systematically ggplot2 for most of my plots, but I am fighting some lack of documentation, which I try to overcome. I want to build a scatterplot where the axes cross exactly at (0,0). I tried using scale_y_continuous(limits=c(0,10)), but I always get an extra space at the bottom of the axes. The code I used is below. > plotdata<-data.frame(x=1:10,

hello, I have the following problem setting parameter 'frac' in the sigest function of the kernlab package. ## executing the ?sigest example: library(kernlab) data(spam) srange <- sigest(type~.,data = spam) ## works fine... ## setting 'frac' explicitly ## (in this case even to the default of .25) options(error=recover) srange <- sigest(type~.,data = spam, frac = .25) ##

I have been trying the integrate function in R, a function which would be very useful for a current project of mine. But I am encountering errors integrating the one function I have tried. The function to be integrated is a product of a gamma demsity and a normal density: gamma.by.normal_function(y,x,shape,scale,stdev) return( dgamma(y,shape=shape,scale=scale)*

... or if I understand correctly, simply expression(frac(additive ~ HCO[3]^"-", true ~ HCO[3]^"-" ))) Cheers, Bert On Fri, Feb 2, 2024 at 3:06?AM Rui Barradas <ruipbarradas at sapo.pt> wrote: > ?s 10:01 de 02/02/2024, Troels Ring escreveu: > > Hi friends - I'm plotting a ratio of bicarbonates i ggplot2 and > > > >

Dear R-Help, I also send the following post by e-mail to you, however I try to post it here aswell. My name is Henrik and I am currently trying to solve a Maximum Likelihood optimization problem in R. Below you can find the output from R, when I use the "BFGS" method: The problem is that the parameters that I get are very unreasonable, I would expect the absolute value of each

Hi to all I use a loop to plot 9 different histograms of 9 different transformations of one dataset (x). I want to label the histograms with the mathematical expression of each transformation (e.g. x^3). For that I've prepared a vector with the labeling names for "expression". > trans.expr <- c("x^3", "x^2", "x", "frac(1,x)",

The following line of code seems fairly straight forward, yet it is kicking back an error message: for (i in 1:length(mean.natveg.frac)){month.observed[i]=as.numeric(names(mean.natveg.frac[i]))%%12} Error message: Error in month.observed[i] = as numeric(names(mean.natveg.frac[i]))%%12 : object 'month.observed' not found Seems like its not found because I'm trying to define it. Also