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@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@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.
______________________________________________
R-help@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.
