[英]ggplot2: plotting multiple graphs in the same plot
我尝试使用ggplot2
在同一图上绘制多个图。 任何想法如何做到这一点? 我得到了一个名为draw.data
的函数,该函数在R中用于绘制曲线,并且使用ggplot
。 我想知道是否可以设置为TRUE
来强制ggplot
通过下一次调用draw.data
函数在同一窗口上绘制下一个图形。
这是代码:
draw.data <- function(xy){
# Bibliothek für ggplot-Funktion
# Dependencies: > library("ggplot2") must be imported!
x.lab <- "concentration [M]"
y.lab <- "normalised luminescence [%]"
my.data <- data.frame(xy)
my_labels <- parse(text = paste("1E", seq(-10, -4, 1), sep = ""))
# Find max, min and difference
# y.max <- max(my.data$y)
# y.min <- min(my.data$y)
y.max <- 1
y.min <- 0
diff <- y.max - y.min
# Find percentage and apply to new column
my.data$y <- apply(my.data, 1, function(z) ((z["y"] - y.min)/diff)*100)
ggp.temp <- ggplot(my.data, aes(x,y)) +
#geom_point(aes(x = x, y = y, color = as.factor(x))) +
#geom_point(aes(x = x, y = y)) +
#geom_line(aes(x = x, y = y)) +
#geom_line(aes(x = x, y = y, color = as.factor(x))) +
geom_line() +
# Draw 2 lines at 50% and 90% through the y-axis
geom_hline(yintercept = c(50, 90), linetype = "dotted") + # draw dotted horizontal lines at 50 and 90
scale_x_continuous(x.lab, breaks = seq(-10, -4, 1), labels = my_labels) +
labs(title = "Graph", x = x.lab, y = y.lab)
return (ggp.temp)
}
这就是我希望剧情的样子。
x y
[1,] -10 1.14259527
[2,] -9 1.15024188
[3,] -8 1.10517450
[4,] -7 1.00961311
[5,] -6 0.71238360
[6,] -5 0.20355333
[7,] -4 0.04061895
[8,] -10 1.11022461
[9,] -9 1.11083317
[10,] -8 1.07867942
[11,] -7 0.98422000
[12,] -6 0.73539660
[13,] -5 0.36134577
[14,] -4 0.18124645
[15,] -10 2.13212408
[16,] -9 1.14529425
[17,] -8 1.25102307
[18,] -7 1.16045169
[19,] -6 0.50321380
[20,] -5 0.15422609
[21,] -4 0.10198811
[1,] -10 1.16539392
[2,] -9 1.15855333
[3,] -8 1.11766975
[4,] -7 0.97204379
[5,] -6 0.53504417
[6,] -5 0.17431435
[7,] -4 0.29470416
[8,] -10 1.03683145
[9,] -9 1.07524250
[10,] -8 1.07761291
[11,] -7 0.96401682
[12,] -6 0.78346457
[13,] -5 0.32783725
[14,] -4 0.08103084
[15,] -10 0.81372339
[16,] -9 0.85402909
[17,] -8 0.86584396
[18,] -7 0.80705470
[19,] -6 0.53086151
[20,] -5 0.15711034
[21,] -4 0.11496499
如评论中所述, gpplot
通过在绘图中添加不同的图层来工作。 为了实现所需的功能,您应该像这样调整功能:
draw.data <- function(xy, add = FALSE) {
x.lab <- "concentration [M]"
y.lab <- "normalised luminescence [%]"
my.data <- data.frame(xy)
my_labels <- parse(text = paste("1E", seq(-10, -4, 1), sep = ""))
y.max <- 1
y.min <- 0
diff <- y.max - y.min
my.data$y <- apply(my.data, 1, function(z) ((z["y"] - y.min)/diff)*100)
if (!add) {
ggplot(my.data, aes(x,y)) +
geom_line() +
geom_hline(yintercept = c(50, 90), linetype = "dotted") +
scale_x_continuous(x.lab, breaks = seq(-10, -4, 1),
labels = my_labels) +
labs(title = "Graph", x = x.lab, y = y.lab)
} else {
geom_line(aes(x, y), data = my.data )
}
}
然后,您可以使用以下功能:
bp <- draw.data(dat)
bp + draw.data(dat.new1, TRUE) + draw.data(dat.new2, TRUE)
但是,这是由于缺少未经测试的可重复数据。
您可以更新代码以将每条新线添加到现有绘图中。
dat1 <- list(x = 1:10, y = c(100, 100, 90, 70, 45, 35, 30, 25, 20, 20))
dat2 <- list(x = 2:11, y = c(100, 98, 91, 73, 46, 37, 35, 30, 29, 28))
library(ggplot2)
draw.data <- function(xy, obj = ggplot()){
# Bibliothek für ggplot-Funktion
# Dependencies: > library("ggplot2") must be imported!
x.lab <- "concentration [M]"
y.lab <- "normalised luminescence [%]"
my.data <- data.frame(xy)
my_labels <- parse(text = paste("1E", seq(-10, -4, 1), sep = ""))
# Find max, min and difference
# y.max <- max(my.data$y)
# y.min <- min(my.data$y)
y.max <- 1
y.min <- 0
diff <- y.max - y.min
# Find percentage and apply to new column
my.data$y <- apply(my.data, 1, function(z) ((z["y"] - y.min)/diff)*100)
ggp.temp <- obj +
geom_line(data = my.data, aes(x = x, y = y)) +
# Draw 2 lines at 50% and 90% through the y-axis
geom_hline(yintercept = c(50, 90), linetype = "dotted") +
scale_x_continuous(x.lab, breaks = seq(-10, -4, 1),
labels = my_labels) +
labs(title = "Graph", x = x.lab, y = y.lab)
return (ggp.temp)
}
p1 <- draw.data(xy = dat1)
p2 <- draw.data(xy = dat2, obj = p1)
print(p2)
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.