当我尝试创建折线图时，为什么 ggplot2 给我一个空网格？

Question

我的数据如下所示：

Stock Market Data

所有列都是字符类型。我想随时间绘制调整后的收盘价。因此，我将 Date 列转换为 Date 类，将 Adj.Close 列转换为数字类型。

data$Date <- as.Date(data$Date)
data$Adj.Close <- as.numeric(data$Adj.Close)

接下来，我尝试绘制变量

ggplot(data, aes(x = "Date", y = "Adj.Close")) + geom_line()

但是，我得到的只是一个空网格。我还尝试使用 as.ts 将日期列转换为时间序列数据类型，但这给了我相同的结果。