R-如何使用时间变量绘制具有不同比例的两个y轴的ggplot2

library(ggplot2)

# 导入数据集
data <- read.csv("data.csv") # 假设数据集名为data.csv

# 设置绘图参数
theme_set(theme_minimal())

p <- ggplot(data, aes(x = time, y = y1)) +
  geom_line() + # 添加折线图
  labs(y = "Y1轴标题") # 设置y轴标题

p <- p +
  geom_line(aes(y = y2), color = "red") + # 添加第二个y轴的折线图
  scale_y_continuous(sec.axis = sec_axis(~./24/60/60, name = "Y2轴标题")) # 设置第二个y轴的转换函数和标题

p <- p +
  labs(title = "绘制具有不同比例的两个y轴") + # 添加标题
  xlab("时间") + # 设置x轴标签
  theme(legend.position = "top") # 设置图例位置在顶部

print(p) # 打印图形
ggsave("plot.png", plot = p, width = 8, height = 6) # 保存为png图片文件，设置图片宽度为8英寸，高度为6英寸