r - Error ggplot (Error in seq.int(0, to0 - from, by) : 'to' must be finite) -
for plotting data ggplot2, have faced following error. commands, data , error types available following:
require(ggplot2) require(reshape2) df <- data.frame(hmn25_30$avg,dt_hmn$dt) df[3] = c( "normal", "normal", "normal", "normal", "normal", "normal", "normal", "normal", "normal", "normal", "outlier", "outlier", "outlier", "outlier", "outlier", "outlier", "normal", "outlier", "outlier", "normal", "normal", "outlier", "outlier", "normal", "normal" ) names(df)[1] <- 'node 25' names(df)[3] <-'results' df.m <- melt(df, names(df)[2:3], names(df)[1]) df.m$results <- factor(df.m$results) df.m$dt_hmn.dt <- strptime(as.character(df.m$dt_hmn.dt), format = "%y-%m-%d %h:%m") p <- ggplot(df.m, aes(x = dt_hmn.dt, y = value, group = variable, color = variable)) p <- p + scale_shape_manual(values=c(27,20)) p <- p + geom_point(aes(shape = results), cex=13, color= "blue") p <- p + theme(axis.text.x = element_text(angle = 90, hjust = 1, size=13,color="darkred")) p <- p + scale_color_manual(values=c("red")) p <- p + ylim(-1,8) p <- p + theme_bw() p <- p + xlab('date , time') p <- p + ylab('temprature') p <- p + ggtitle("temporal outliers of node 25 ") + theme(plot.title = element_text(lineheight=3, face="bold", color="black", size=29)) p and data are:
hmn25_30$avg [1] 0.280 0.208 -0.264 -0.480 -0.708 -0.714 -0.498 -0.216 0.126 0.574 1.042 1.086 1.820 [14] 4.570 3.808 7.400 5.572 5.402 6.288 4.966 5.180 2.380 4.710 5.366 4.766 dt_hmn$dt [1] 9/29/2007 23:00 9/30/2007 0:00 9/30/2007 1:00 9/30/2007 2:00 9/30/2007 3:00 [6] 9/30/2007 4:00 9/30/2007 5:00 9/30/2007 6:00 9/30/2007 7:00 9/30/2007 8:00 [11] 9/30/2007 9:00 9/30/2007 10:00 9/30/2007 11:00 9/30/2007 12:00 9/30/2007 13:00 [16] 9/30/2007 14:00 9/30/2007 15:00 9/30/2007 16:00 9/30/2007 17:00 9/30/2007 18:00 [21] 9/30/2007 19:00 9/30/2007 20:00 9/30/2007 21:00 9/30/2007 22:00 9/30/2007 23:00 i have faced following error:
error in seq.int(0, to0 - from, by) : 'to' must finite
firs problem in code format= in striptime() had wrong argument - didn't correspond actual date format. should format = "%m/%d/%y %h:%m"
df.m$dt_hmn.dt <- strptime(as.character(df.m$dt_hmn.dt), format = "%m/%d/%y %h:%m") next ggplot() code - if set color="blue" points in geom_point() don't need use scale_color_manual() , use color=variable inside aes(). scale_shape_manual() there no shape 27, changed 17.
if use theme_bw() other theme() calls should placed after line sure theme_bw() won't override parameters.
ggplot(df.m, aes(x = dt_hmn.dt, y = value, group = variable)) + geom_point(aes(shape = results), cex=13, color= "blue")+ scale_shape_manual(values=c(17,20))+ ylim(-1,8)+ theme_bw()+ xlab('date , time') + ylab('temprature')+ ggtitle("temporal outliers of node 25 ") + theme(plot.title = element_text(lineheight=3, face="bold", color="black", size=29))+ theme(axis.text.x = element_text(angle = 90, hjust = 1, size=13,color="darkred")) 
Comments
Post a Comment