我想將多個 ggplots 組合成一個具有相同 x 和 y 軸的圖。這是我的
library(ggplot2)
library(scales)
result <- read.csv("Downloads/Questions Trend - Questions Trend.csv")
result$Time_Formatted <- as.Date(result$Time_Formatted)
date_breaks <- as.Date(c("9/1/08", "5/12/14", "7/1/17", "2/2/19", "6/3/20"), "%m/%d/%y")
p1 <- ggplot(result, aes(result$Time_Formatted, result$A_Trnd))
geom_point(size = 0.1) xlab("Month") ylab("Temporal Trend")
scale_x_date(breaks = date_breaks , date_labels = "%Y-%m", limits = c(as.Date("2008-08-01"), as.Date("2021-08-01")))
theme(axis.text.x = element_text(angle = 70, vjust = 0.9, hjust = 1))
p1 geom_smooth(method = "loess", color = "red")
現在，我想為Time vs B_Trnd，Time vs C_Trnd繪制相同的圖，并有一個如下所示的組合圖。
我怎樣才能做到這一點？
uj5u.com熱心網友回復：
library(tidyverse)
library(scales)
result <-read.csv("Downloads/Questions Trend - Questions Trend.csv") %>%
mutate(Time = as.Date(Time, format = "%m/%d/%y")) %>%
pivot_longer(cols = -Time, names_to = "group", values_to = "value")
date_breaks <- as.Date(c("9/1/08", "5/12/14", "7/1/17", "2/2/19", "6/3/20"), "%m/%d/%y")
p1 <- ggplot(result, aes(Time, value))
geom_point(size = 0.1)
labs(x = "Month", y = "Temporal Trend")
scale_x_date(breaks = date_breaks , date_labels = "%Y-%m", limits = c(as.Date("2008-08-01"), as.Date("2021-08-01")))
theme(axis.text.x = element_text(angle = 70, vjust = 0.9, hjust = 1),
legend.position = "none")
geom_smooth(method = "loess", aes(color = group))
facet_wrap(vars(group), nrow = 1)
p1
轉載請註明出處，本文鏈接：https://www.uj5u.com/net/440268.html
上一篇：在拼布中手動定位圖例