提供的数据只是我正在使用的数据的一小部分。它如下:
library(ggplot2)
library(ggthemes)
time <- c(0, 0.0166666666666667, 0.0333333333333333, 0.05, 0.0666666666666667,
0.0833333333333333)
sent_score <- c(-8L, -1L, -49L, -26L, -8L, -18L)
data = data.frame(time,sent_score)
ggplot(data, aes(x = time, y = sent_score)) +
geom_line() +
theme_minimal() +
ggtitle("Sentiment Scores By Time") +
theme(plot.title = element_text(hjust = 0.5)) +
scale_x_continuous(seq(0, 23, 1)) +
geom_hline(yintercept = 0, color = "red", linetype = 2) +
xlab("Time")
数据显示正常,但我无法正确显示x轴。如果我做错了,请告诉我。提前谢谢!