如何解决如何在ggplot R中制作双轴
我为4个不同物种的总计数数据绘制了一个时序图。如您所见,与其他3个物种相比,使用sharksucker的结果计数要高得多。要查看其他3个物种的趋势,需要分别绘制它们(或在较小的y轴上)。但是,我的硕士论文中没有数字限制。因此,我试图创建一个双轴图或将y轴拆分为两个。有人知道我可以做到这一点的方法吗?
library(tidyverse)
library(reshape2)
dat <- read_xlsx("ReefPA.xlsx")
dat1 <- dat
dat1$Date <- format(dat1$Date,"%Y/%m")
plot_dat <- dat1 %>%
group_by(Date) %>%
summarise(Sharksucker_Remora = sum(Sharksucker_Remora)) %>%
melt("Date") %>%
filter(Date > '2018-01-01') %>%
arrange(Date)
names(plot_dat) <- c("Date","Species","Count")
ggplot(data = plot_dat) +
geom_line(mapping = aes(x = Date,y = Count,group = Species,colour = Species)) +
stat_smooth(method=lm,aes(x = Date,colour = Species)) +
scale_colour_manual(values=c(Golden_Trevally="goldenrod2",Red_Snapper="firebrick2",Sharksucker_Remora="darkolivegreen3",Juvenile_Remora="aquamarine2")) +
xlab("Date") +
ylab("Total Presence Per Month") +
theme(legend.title = element_blank()) +
theme(axis.text.x = element_text(angle = 90,vjust = 0.5,hjust = 1))
解决方法
问题是,您要解决的问题似乎不是第二个Y轴问题。这里的问题是物种的相对规模。您可能需要考虑将物种的初始存在标准化为100,然后从那里显示生长或下降的方法。
另一种选择是按物种分面。
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。