假设末尾的Note中显示了DF，将Time列转换为直接表示年和季度的yearqtr类（与使用Date类相反），并使用scale_x_yearqtr。

library(ggplot2)
library(zoo)

fmt <- "%Y-Q%q"
DF$Time <- as.yearqtr(DF$Time, format = fmt)
ggplot(DF, aes(Time, Value, col = Country)) + 
  geom_point() + 
  geom_line() +
  scale_x_yearqtr(format = fmt)

（在图形后继续）

也可以将其转换为每个国家一列的宽格式zoo对象，然后使用autoplot。使用下面注解中的DF：

fmt <- "%Y-Q%q"
z <- read.zoo(DF, split = "Country", index = "Time", 
  FUN = as.yearqtr, format = fmt)
autoplot(z) + scale_x_yearqtr(format = fmt)

注解

Lines <- "
Country Time Value 
1 USA 1999-Q1 292929 
2 USA 1999-Q2 392023 
3 USA 1999-Q3 9392992"
DF <- read.table(text = Lines)

使用ggplot2：

library(ggplot2)

ggplot(df, aes(Time, Value, fill = Country)) + geom_col()

我知道其他人已经回答了，但我认为这个更一般的答案也应该在这里。
当你做as.Date()的时候，你只能做开头，我在你的 Dataframe 上试过了（我把它叫做df），它起作用了：

> as.Date(df$Time, format = "%Y")
[1] "1999-11-28" "1999-11-28" "1999-11-28"

现在，我不知道你是想使用plot()，ggplot()，还是ggplot2库，我不知道，这也没关系，不管你想指定y轴，你都可以这样做。