similar to: How to show the intermediate tick marks without the values in a different color

Dear List, The following code produces a list, which is what I what: set.seed(123) tmpf <- function() { x <- rpois(rpois(1,4),2) } n <- 3 m <- replicate(n,tmpf()) m [[1]] [1] 3 2 4 [[2]] [1] 0 2 4 2 2 5 2 [[3]] [1] 2 0 4 1 0 Now I need something that would to extract iteratively (or as many times as the size of 'n') the values that are greater than 2 in each component of

Dear List: I have the follow code: y <- replicate(10,replicate(8,sum(rnorm(rpois(1,5))))) Now I need to apply the following condition to _every_ randomly generated Normal number in the code above: x - max(0,x-15) + max(0,x-90), where x represents the individual Normal numbers. In other words, the said condition needs to be applied before replicate(...(replicate(...(sum(...))) takes place.

----- Quick summary: In the File:Open dialog, please change "S files (*.q)" to "S files (*.q, *.ssc, *.S)" and show the corresponding files (including .SSC and .s files). ----- Background This is motivated by the following query to R-help: >Date: Thu, 16 Mar 2006 22:44:11 -0600 >From: "xpRt.wannabe" <xprt.wannabe at gmail.com> >Subject: [R] Is

Hi, I wish to create a series of plots with the same x-axis range and the same placement of tick marks. In addition I want to force the tick marks to be at specific locations. For example, if I wish to have an x-axis which goes from 40 to 110, with tick marks at 40, 50, 60, ... , How can I accomplish that? The various parameters I have tried changing just seem to be suggestions for

Hello, I think I found a bug: > windows(1,width = 10, height = 10, pointsize = 5,xpos = 0, ypos = 0 ) > hdata[1:3,1] <- c(1,10,15) > hdata[1:3,2] <- c(2,1,4) > plot(hdata[,1],hdata[,2],xaxt="n") > axis(1,at=c(2,10,14)) > minor.tick(nx=2, ny=1,tick.ratio=1) the minor tick marks appear between the tick marks which would have been drawn without the option

Dear List, I have some S-PLUS script files (.ssc). Does there exist an R function/command that can read such files? I simply want to view the code and practice in R to help me learn the subject matter. Any help would be greatly appreciated. platform i386-pc-mingw32 arch i386 os mingw32 system i386, mingw32 status major 2 minor 2.1 year 2005 month 12 day 20 svn

Hi Folks, I'm advising someone who's a beginner with R, and therefore wants the simplest answer possible. The issue is to produce a plot using plot(x,y,...) where, on the X-axis, the tick-marks should be on the lines of: -- Range of X-axis: 0:1000 -- tick-marks labelled "0","200",...,"800","1000" -- unlabelled tick-marks every 50 from 0 to

Hi, I would like to use xyplot to create a figure. Unfortunately, I cannot find documentation in xyplot to specify alternating the x-axis tick labels with the x-axis tick marks. I can do this with the regular R plot function as follows. #A small version of my data looks like this data<-data.frame(matrix(ncol=3,nrow=12)) data[,1]<-rep(c(1,2,3),c(4,4,4)) data[,2]<-rep(c(1,2,3,4),3)

Dear R-help list, I have a problem with the tick marks of a Kaplan-Meier survival plot. Here is a sample: follow.up<-c(10,20,30,40,50,60,70,80,90,100) #months dead<-c(1,1,1,0,1,1,0,0,0,0) KM <-survfit(Surv(follow.up, dead)) plot(KM) The result is a nice plot. However, our research group thinks it may be a better idea to place the ticks to the years on the time scale, i.e. 0, 12, 24, 36

I have been experimenting with various approaches to plotting (irregular) time-series with reasonable success. One thing I have been able to do is change the number of tick marks on the axis. Consider the following simple example: > x <- as.data.frame(matrix(ncol=2,nrow=500)) > names(x) <- c("dates","values") > x$dates <- as.POSIXct(Sys.time()+1:500*86400)

Dear R Users, I am trying to get plot.zoo to place monthy tickmarks/labels for a time series which spans daily data going back a bit over a year. Right now, I am getting only one tick mark on the x-axis for the beginning of 2008. How can I force plot.zoo to place more regular x-axis tick marks on a monthly basis ? Thanks in advance, Tolga Generally, this communication is for informational

Dear R-list, I am having trouble getting the Plot function to set the tick marks the way I want, and I am not sure what I am doing wrong. Below is the code that I wrote, and I am not sure why it doesn't work. p is a vector of length 2198, containing numbers between 0 and 240. q is a vector of ones, the same length as p. I want the x-axis to have tick marks every 30 min and I want the

Hello, Is there a way to define the width of the axis tick marks on traditionnal plots? I did not find anything specific on this topic in the help and par(lwd=...) does not affect the tick marks. I guess that using axes=FALSE and recreating the axis with the axis() command could do the trick but I wonder if there is no easier way. Thanks in advance Sebastien

Hi all, I'm trying to log chart but with natural looking tick marks. My specifications are very specific -- it must indicate the lowest number's tick as well as the maximum. I've attached sample code and data for a particular case (and there are a few more like this) where the bottom tickmarks on the chart are not set to where I want them to be and yet they fit in the ylim range.

library(ggplot2) melt.updn <- (structure(list(date = structure(c(11808, 11869, 11961, 11992, 12084, 12173, 12265, 12418, 12600, 12631, 12753, 12996, 13057, 13149, 11808, 11869, 11961, 11992, 12084, 12173, 12265, 12418, 12600, 12631, 12753, 12996, 13057, 13149), class = "Date"), site = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L,

R-help Is there any way to specify the color of grid lines in a simple plot? par(color.tick.marks=c("grey")) plot(rnorm(10),tck=1) Thank you

Dear List, Below is a simple, standard loss model that takes into account the terms of an insurance policy: deductible <- 15 coverage.limit <- 75 insurance.threshold <- deductible + coverage.limit tmpf <- function() { loss <- rlnorm(rpois(1, 3), 2, 5) sum(ifelse(loss > insurance.threshold, loss - coverage.limit, pmin(loss, deductible))) } net <- replicate(1000000, tmpf())

For example, this works: x = seq(-100, 1000, 25) y = x * x plot(x,y, xaxt="n") axis(1,x,FALSE,tcl=-0.3) axis(1,x[x %% 100 ==0]) It creates two axis objects and the values of the x-axis are the labels. The following scenario is more difficult, because it uses 'image' to plot a grid of values: a = matrix(rnorm(100),ncol=10) image(1:ncol(a), 1:nrow(a), a, xaxt="n",

While writing a function that includes placing grid lines at the same position as the axis ticks, I found that the axis* functions don't return anything. Thus I have had to copy the appropriate function, removing the call to axis() and adding a line to return the tick positions. Is there a more elegant way to determine the tick positions on an axis? Thanks. Jim (normally bitwrit at

I actually have several questions revolving around the generation of wireframe plots. The most pressing is that which is described by the subject line. I am trying to produce a figure with x, y, and z labels, but only tick marks on the x, and y axes. I have supplied sample code below substituting the volcano data set for my own such that you may run the code and see the results.