similar to: Properly labeling abline with text?

Ugh...This should be very simple, but evidently I am not searching for the proper term. Given the below: val_size<-100000 x_vals<-rnorm(val_size) I would like to group them according to the following x_vals_mean_tmp[1]<-mean(x_vals[1:10]) x_vals_mean_tmp[2]<-mean(x_vals[11:20]) ... x_vals_mean_tmp[n]<-mean(x_vals[99991:100000]) Then, I would like to group them according to the

At one point I believe I heard of an R package that would automatically find the most empty space in a plot, and then that answer could then be used to intelligently place a legend. I would like to try to apply that R package to the contrived example shown below, so thank you for any hints or tips that can be provided. x = seq(0, 1000, by = 1) y1_vals<-rnorm(1000, mean = 0, sd = 50)

Hi I would like to fit a non-linear regression to the follwoing data: quantiles<-c(seq(.05,.95,0.05)) slopes<-c( 0.000000e+00, 1.622074e-04 , 3.103918e-03 , 2.169135e-03 , 9.585523e-04 ,1.412327e-03 , 4.288103e-05, -1.351171e-04 , 2.885810e-04 ,-4.574773e-04 , -2.368968e-03, -3.104634e-03, -5.833970e-03, -6.011945e-03, -7.737697e-03 , -8.203058e-03, -7.809603e-03, -6.623985e-03,

hello, please can anyone help me out. Am a new user of R program. Am having problem with this code below, not getting the expected results. 1. Each m, the cumulative sum should be 1.000 but the 2nd and 3rd m returned 2.000 and 3.000 instead of 1.000. 2. to get the LCL(m) and UCL(m) for each m base on these instructions if out.cum > 0.025 then LCL(m)= y-1 if out.cum >0.975

Hi list, I was using Sweave and was wondering if anyone has had any luck changing the font colors of the code chunks. For instance, in my .Rnw preample I tried including: === \usepackage[usenames]{colors} \definecolor{darkred}{rgb}{0.545,0,0} \definecolor{midnightblue}{rgb}{0.098,0.098,0.439} \DefineVerbatimEnvironment{Sinput}{Verbatim}{fontshape=sl,formatcom={\color{midnightblue}}}

Dear Users, I helped to install R Commander and FactoMineR to one of my collegaues. He wanted to do an MCA. Selecting three variables and using the default settings results in only one graph, the variables representation, where he gets three points for the three variables (which is totally fine). Running the code (output of the point-and-click method) EuTop100.MCA<-EuTop100[,

Using the small reproducible example below, I'd like to know if one can somehow use the matrix "sig" (defined below) to add a black outline (with lwd=2) to all pixels with a corresponding value of 1 in the matrix 'sig'? So for example, in the ggplot2 plot below, the pixel located at [1,3] would be outlined by a black square since the value at sig[1,3] == 1. This is my first

Buenas noches, Tengo que preparar un gráfico de barras comparativo para varios años, en el que tenga agrupadas, 3 barras para enero, 3 barras para febrero, 3 barras para marzo y así sucesivamente para todos los meses, estando en cada mes, los años 2020, 2019 y 2018 (juntas), un pequeño espacio y luego las de febrero y así sucesivamente... Con el siguiente código, hago un año:

I started working on a chat program but, I''m having this problem chatroom.rhtml <div id="chatroom"> </div> <%= periodically_call_remote( :update => "chatroom", :url => {:action => :chat }, :frequency => 2) %> chat.rhtml <h1><%= @chat.room %> room.</h1>

Good day, I'm trying to get more time series in one plot. As there are bigger differences in values of variables I need logaritmic y axis. The code I use is the following: nvz_3_data <- read.csv('/home/tomas/R_outputs/nvz_3.csv') date <- (nvz_3_data$date) NO3 <- (nvz_3_data$NO3) NH4 <- (nvz_3_data$NH4) date_p <- as.POSIXct(date, "CET") par(mfrow=c(2,1), ylog

hi all, I have a plot to which i would like to add text labels. And i cant find a way...here is the code : enaD2<-idw(D2~1, loca=dva, newdata=grd) pts = list("sp.points", dva, pch = 20, cex=1.5, col = "darkred spplot(enaD2, "var1.pred",sp.layout=pts, main = "globina 60 cm", sub="D2",

Dear R-users, I am trying to make a plot with ggplot-geom_tile(), but cannot remove some unwanted (white) lines through my plot. Below a reproducible example: ##### library(ggplot2) tot=as.data.frame(rep(seq(-50,50,5),each=21)) names(tot)="precip" temp=rep(seq(-5,5,0.5),21) tot$temp=temp disc=array(dim=c(21,21)) for(i in 1:21){ for(y in 1:21){ temp<-

Hello, I have a data set of about 300.000 measurements made by an STM which should apporximately fix a normal (Gaussian) distribution. I have imported the data in R and used plot(density()) to get a nice plot of the distribution which in fact looks like a real Gaussian. However, the integral over the surface is not equal to one (I know since some of the plots extend to numbers greater then 1). Is

Greetings! I'm having an issue with the windrose produced by the windrose function from the circular package. For our weather stations in North Carolina I'm helping with a script which takes hourly wind speed and direction data to create windroses for our end users. One of the stations in the mountains frequently reaches wind speed of 40 to 60 mph and in storms can reach wind speed over

On Sun, 2009-07-26 at 13:17 +0200, Poersching wrote: > stvienna wiener schrieb: > > Hi all, > > > > I am plotting a financial time series, but I need a more detailed X-Axis. > > > > Example: > > x <- zoo(rnorm(1:6000), as.Date("1992-11-11")+c(1:6000)) > > plot(x) > > > > The X-Axis is labeled "1995", "2000"

I tried to install the syntax pattern file, R-5.1.pats (obtained from www.nedit.org) in version 5.3 of nedit, but it gives the following errors. Does anyone have a more up-to-date copy? euclid: ~/nedit % nedit -import R-5.1.pats NEdit: language mode must be specified in highlight pattern: <== NEdit: style name required in style specification: Note:darkRed:Italic <== NEdit: expecting

hello, all. i am trying something new and am stuck. i typically go with whatever colors the pie function pops out, but i would like to customize it. please find below a sample dataset. ##TVs per household. TVs <- factor(c(rep("0", 1), rep("1", 16), rep("2", 14), rep("3", 12), rep("4", 3), rep("5", 2), rep("6", 2)))

I have following codes for ggplots. The legends are given in the plot do not match with the values specified in the codes given below. Your helps highly appreciated. Greg library(ggplot2) p <- ggplot(a,aes(x=NO_BMI_FI_beta ,y=FI_beta ,color= Super.Pathway))+ theme_bw() +theme(panel.border=element_blank()) + geom_point(size=3) p2<-p+scale_color_manual(name="Super.Pathway",

I am using ggplot and posted this question at that helplist. It was suggested that I try a more general R-help list for a possible solution to this problem. Within ggplot, I am using geom_area with red and blue and expect where they overlap should be purple. But instead, it's dark red. Playing with alpha and with different colors doesn't seem to solve the problem. Here's a very

Hi guys. The tex file which compile the following graphic has many problems. I don't know what's happening. Any input would be really appreciated. # Cargo el prgrama que produce el c?digo en Latex require(tikzDevice) # Establezco directorio del programa setwd('/Users/fabiangarcia/Documents/R') # El siguiente programa produce el archivo tex tikz('CobbGRAF.tex',