hi all ,?
i have an problem in script R . But when I execute the script R I face this error . can you help me please ???error:-----------------------------------------
Error in FUN(X[[i]], ...) :?? Theme element 'text' has NULL property: margin, debugIn addition: Warning messages:1: Removed 361 rows containing non-finite values (stat_smooth).?2: Removed 361 rows containing missing values (geom_path).?3: Removed 6 rows containing missing values (geom_smooth).?-------------------------------------------------------------script R:
suppressMessages (library(ggplot2))
source ("graph-style.R")
input = "graphs/figure-3-data-propagation-vs-time/car-relay-jump-distance.txt.gz2"output = "graphs/pdfs/figure-3-data-propagation-vs-time.pdf"
data <- read.table (bzfile(input, "r"), header=TRUE)data$Run = as.factor(data$Run)data$DistanceFromSource = data$NodeId * data$Distance
data = subset(data, Distance %in% c(10, 50, 90, 130, 170))data$Distance = as.factor(data$Distance)
g <- ggplot(data, aes(x=Time-2, y=DistanceFromSource, colour=Distance, linetype=Distance)) +? geom_line (aes(group=paste(Distance, Run, fill=Distance)), show_guide=FALSE, size=0.2) +
? ## stat_summary(aes(group=Distance, colour=Distance), fun.y="mean", geom="line", size = 2) +? ## geom_line (aes(group=Distance, y=mean(DistanceFromSource/1000))) +? geom_smooth (aes(fill=Distance), show_guide=TRUE, method="lm", colour='black', n=20, size=0.3) +
? scale_y_continuous ("Distance from source, km", limits=c(-500,10000), labels=function(x){x/1000}) +? scale_x_continuous ("Time, seconds", limits=c(0,2)) +? scale_colour_brewer("Distance between cars, m", palette="Dark2", guide = "none") +? scale_fill_brewer("Distance between cars, m", palette="Dark2") +? scale_linetype_manual("Distance between cars, m", values=c(1,2,3,4,5,6,7,8)) +? theme_custom () +? theme (legend.position = c(0.99,-0.05), legend.justification=c(1.0,0), legend.direction = "horizontal")
if (!file.exists ("graphs/pdfs")) {? dir.create ("graphs/pdfs")}
pdf (output, width=5, height=3.5)gx = dev.off ()----------------------------------------------------------------------------------------------------------------------script( graph-style.R) :
library(grid)
theme_custom <- function (base_size = 10, base_family = "serif") {? theme_grey(base_size = base_size, base_family = base_family) %+replace%? ? theme(? ? ? line = ? ? ? ? ? ? ? element_line(colour = "black", size = 0.5, linetype = 1, lineend = "butt"),? ? ? rect = ? ? ? ? ? ? ? element_rect(fill = "white", colour = "black", size = 0.5, linetype = 1),? ? ? text = ? ? ? ? ? ? ? element_text(family = base_family, face = "plain", colour = "black", size = base_size, hjust = 0.5, vjust = 0.5, angle = 0, lineheight = 0.9),? ? ? axis.text = ? ? ? ? ?element_text(size = rel(0.8), colour = "grey50"),? ? ? strip.text = ? ? ? ? element_text(size = rel(0.8)),
? ? ? axis.line = ? ? ? ? ?element_blank(),? ? ? axis.text.x = ? ? ? ?element_text(family = base_family, size = base_size * 0.7, lineheight = 0.8, vjust = 1.2),? ? ? axis.text.y = ? ? ? ?element_text(family = base_family, size = base_size * 0.7, lineheight = 0.8, hjust = 1.2),? ? ? axis.ticks = ? ? ? ? element_line(colour = "black", size=0.2),? ? ? axis.title.x = ? ? ? element_text(family = base_family, size = base_size, vjust = 0.5),? ? ? axis.title.y = ? ? ? element_text(family = base_family, size = base_size, angle = 90, vjust = 0.5),? ? ? axis.ticks.length = ?unit(0.15, "cm"),? ? ? axis.ticks.margin = ?unit(0.1, "cm"),
? ? ? legend.background = ?element_rect (fill=NA, colour=NA, size=0.1),? ? ? legend.margin = ? ? ?unit(0.2, "cm"),? ? ? legend.key = ? ? ? ? element_rect(fill = "grey95", colour = "white"),? ? ? legend.key.size = ? ?unit(1.2, "lines"),? ? ? legend.key.height = ?NULL,? ? ? legend.key.width = ? NULL,? ? ? legend.text = ? ? ? ?element_text(family = base_family, size = base_size * 0.8),? ? ? legend.text.align = ?NULL,? ? ? legend.title = ? ? ? element_text(family = base_family, size = base_size * 0.8, face = "bold", hjust = 1),? ? ? legend.title.align = NULL,? ? ? legend.position = ? ?"right",? ? ? legend.direction = ? NULL,? ? ? legend.justification = "center",? ? ? legend.box = ? ? ? ? NULL,
? ? ? panel.background = ? element_rect(fill = "white", colour = NA),? ? ? panel.border = ? ? ? element_rect(fill = NA, colour = "grey50"),? ? ? panel.grid.major = ? element_line(colour = "grey60", size = 0.1),? ? ? panel.grid.minor = ? element_line(colour = "grey70", size = 0.1, linetype="dotted"),? ? ? ## panel.margin = ? ? ? unit(c(0.1, 0.1, 0.1, 0.1), "lines"),
? ? ? strip.background = ? element_rect(fill = NA, colour = NA),? ? ? strip.text.x = ? ? ? element_text(family = base_family, size = base_size * 0.8),? ? ? strip.text.y = ? ? ? element_text(family = base_family, size = base_size * 0.8, angle = -90),
? ? ? plot.background = ? ?element_rect(colour = NA, fill = "white"),? ? ? plot.title = ? ? ? ? element_text(family = base_family, size = base_size),? ? ? plot.margin = ? ? ? ?unit(c(0.1, 0.1, 0.1, 0.1), "lines")? ? )}
Run script R
2 messages · Mohamed Benahmed, Berend Hasselman
Please do NOT post in html as the posting guide tells you. Post in plain text. Your R code is a complete mess and unreadable. Berend
On 10 Apr 2016, at 01:51, Mohamed Benahmed via R-help <r-help at r-project.org> wrote:
hi all ,
i have an problem in script R . But when I execute the script R I face this error . can you help me please ?? error:-----------------------------------------
Error in FUN(X[[i]], ...) : Theme element 'text' has NULL property: margin, debugIn addition: Warning messages:1: Removed 361 rows containing non-finite values (stat_smooth). 2: Removed 361 rows containing missing values (geom_path). 3: Removed 6 rows containing missing values (geom_smooth). -------------------------------------------------------------script R:
suppressMessages (library(ggplot2))
source ("graph-style.R")
input = "graphs/figure-3-data-propagation-vs-time/car-relay-jump-distance.txt.gz2"output = "graphs/pdfs/figure-3-data-propagation-vs-time.pdf"
data <- read.table (bzfile(input, "r"), header=TRUE)data$Run = as.factor(data$Run)data$DistanceFromSource = data$NodeId * data$Distance
data = subset(data, Distance %in% c(10, 50, 90, 130, 170))data$Distance = as.factor(data$Distance)
g <- ggplot(data, aes(x=Time-2, y=DistanceFromSource, colour=Distance, linetype=Distance)) + geom_line (aes(group=paste(Distance, Run, fill=Distance)), show_guide=FALSE, size=0.2) +
## stat_summary(aes(group=Distance, colour=Distance), fun.y="mean", geom="line", size = 2) + ## geom_line (aes(group=Distance, y=mean(DistanceFromSource/1000))) + geom_smooth (aes(fill=Distance), show_guide=TRUE, method="lm", colour='black', n=20, size=0.3) +
scale_y_continuous ("Distance from source, km", limits=c(-500,10000), labels=function(x){x/1000}) + scale_x_continuous ("Time, seconds", limits=c(0,2)) + scale_colour_brewer("Distance between cars, m", palette="Dark2", guide = "none") + scale_fill_brewer("Distance between cars, m", palette="Dark2") + scale_linetype_manual("Distance between cars, m", values=c(1,2,3,4,5,6,7,8)) + theme_custom () + theme (legend.position = c(0.99,-0.05), legend.justification=c(1.0,0), legend.direction = "horizontal")
if (!file.exists ("graphs/pdfs")) { dir.create ("graphs/pdfs")}
pdf (output, width=5, height=3.5)gx = dev.off ()----------------------------------------------------------------------------------------------------------------------script( graph-style.R) :
library(grid)
theme_custom <- function (base_size = 10, base_family = "serif") { theme_grey(base_size = base_size, base_family = base_family) %+replace% theme( line = element_line(colour = "black", size = 0.5, linetype = 1, lineend = "butt"), rect = element_rect(fill = "white", colour = "black", size = 0.5, linetype = 1), text = element_text(family = base_family, face = "plain", colour = "black", size = base_size, hjust = 0.5, vjust = 0.5, angle = 0, lineheight = 0.9), axis.text = element_text(size = rel(0.8), colour = "grey50"), strip.text = element_text(size = rel(0.8)),
axis.line = element_blank(), axis.text.x = element_text(family = base_family, size = base_size * 0.7, lineheight = 0.8, vjust = 1.2), axis.text.y = element_text(family = base_family, size = base_size * 0.7, lineheight = 0.8, hjust = 1.2), axis.ticks = element_line(colour = "black", size=0.2), axis.title.x = element_text(family = base_family, size = base_size, vjust = 0.5), axis.title.y = element_text(family = base_family, size = base_size, angle = 90, vjust = 0.5), axis.ticks.length = unit(0.15, "cm"), axis.ticks.margin = unit(0.1, "cm"),
legend.background = element_rect (fill=NA, colour=NA, size=0.1), legend.margin = unit(0.2, "cm"), legend.key = element_rect(fill = "grey95", colour = "white"), legend.key.size = unit(1.2, "lines"), legend.key.height = NULL, legend.key.width = NULL, legend.text = element_text(family = base_family, size = base_size * 0.8), legend.text.align = NULL, legend.title = element_text(family = base_family, size = base_size * 0.8, face = "bold", hjust = 1), legend.title.align = NULL, legend.position = "right", legend.direction = NULL, legend.justification = "center", legend.box = NULL,
panel.background = element_rect(fill = "white", colour = NA), panel.border = element_rect(fill = NA, colour = "grey50"), panel.grid.major = element_line(colour = "grey60", size = 0.1), panel.grid.minor = element_line(colour = "grey70", size = 0.1, linetype="dotted"), ## panel.margin = unit(c(0.1, 0.1, 0.1, 0.1), "lines"),
strip.background = element_rect(fill = NA, colour = NA), strip.text.x = element_text(family = base_family, size = base_size * 0.8), strip.text.y = element_text(family = base_family, size = base_size * 0.8, angle = -90),
plot.background = element_rect(colour = NA, fill = "white"), plot.title = element_text(family = base_family, size = base_size), plot.margin = unit(c(0.1, 0.1, 0.1, 0.1), "lines") )}
[[alternative HTML version deleted]]
______________________________________________ R-help at r-project.org mailing list -- To UNSUBSCRIBE and more, see https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide http://www.R-project.org/posting-guide.html and provide commented, minimal, self-contained, reproducible code.