有一个表格，第一列为日期，请用R语言为我实现以下功能：1.将第二至第四列的数据绘制折线图，横坐标为日期，第二列和第三列的坐标为左坐标轴，左坐标轴的范围为45到55，第四列单独使用右坐标轴，右坐标轴的范围为0到25

假设数据表格名为 `df`，第一列为日期，第二至第四列为数据列，可以使用以下代码实现：

library(ggplot2)

ggplot(df, aes(x = Date)) + 
  geom_line(aes(y = Column2, color = "Column2")) + 
  geom_line(aes(y = Column3, color = "Column3")) + 
  geom_line(aes(y = Column4, color = "Column4")) + 
  scale_y_continuous(
    name = "Column2/Column3",
    limits = c(45, 55),
    sec.axis = sec_axis(~ ., name = "Column4", limits = c(0, 25))
  ) + 
  labs(title = "Line Chart", x = "Date", y = "") + 
  theme_classic()

其中，`Date`为日期列的列名，`Column2`、`Column3`和`Column4`为数据列的列名。在 `ggplot` 函数中，`aes` 函数用于设置横坐标和纵坐标，`geom_line` 函数用于绘制折线图。`scale_y_continuous` 函数用于设置左右坐标轴的名称和范围，`sec.axis` 参数用于设置右坐标轴。`labs` 函数用于设置图表标题和坐标轴标签，`theme_classic` 函数用于设置图表主题。