【发布时间】:2021-02-21 17:57:48
【问题描述】:
我希望每个图的标题都由我的列表内容标记:“namesvector”而不是“Scatterplot”
还有一个额外的问题,par(mfrow = c(2,2)) 不是并排打印所有 4 个图,而是单独打印。
par(mfrow = c(2, 2))
namesvector <- list("Start", "Week_1", "Week_3", "Week_5")
for (i in 4:ncol(data_3)) {
print(
ggplot(data_3, aes(
y = data_3[, i], x = Biomass, color = Tissue
)) +
geom_point() + geom_smooth(method = "lm") +
labs(title = "Scatterplot", x = "Biomass", y = "Isotopic Signature")
)
}
【问题讨论】:
-
一个更好的方法是使用
tidyr::pivot_longer()比使用facet_wrap()将您的数据转换为长数据。例如:stackoverflow.com/a/62404983/5221626