R 两个Y轴的ggplot

我正在绘制两个带有点的折线图。我遇到的问题是，值会以不同的幅度增加，因此其中一个折线图“v1”会压缩在刻度的下端，因此更难读取。在解决这个问题时，谁能提出建议？这个代码也可以缩短吗

使用

ggplot2

的想法是将数据转换为所谓的长格式，其中每个观察占用一行：

dataframe:-  df

  Period        v1      v2
1   2002        1       1
2   2003        5       12
3   2004        9       28
4   2005        16      66
5   2006        23      115

Code:-

ggplot() + geom_line(data=df, aes(x=Period, y=v1, group=1, color="v1")) + 
geom_line(data=df, aes(x=Period, y=v2, group=1, color="v2"))+ theme(legend.title=element_blank()) + scale_y_continuous(name="Count") +
geom_point(data=df, aes(x=Period, y=v1, group=1)) + geom_point(data=df, aes(x=Period, y=v2, group=1))

我不确定你所说的数据越来越难阅读到底是什么意思。也许，你想要一个对数y轴

ggplot() + geom_line(data=plot_data, aes(x=Period, y=value, colour = key)) + 
  theme(legend.title=element_blank()) + 
  geom_point(data=plot_data, aes(x=Period, y=value)) +
  scale_y_continuous(name="Count")

---

Ggplot不支持两个y轴，因为to使美学与比例的映射变得模糊不清（这被认为是错误的做法）

ggplot() + geom_line(data=plot_data, aes(x=Period, y=value, colour = key)) + 
  theme(legend.title=element_blank()) + 
  geom_point(data=plot_data, aes(x=Period, y=value)) +
  scale_y_continuous(name="Count")

ggplot() + geom_line(data=plot_data, aes(x=Period, y=value, colour = key)) + 
  theme(legend.title=element_blank()) +
  geom_point(data=plot_data, aes(x=Period, y=value)) +
  scale_y_log10(name="Count")