如何使用 ggplot 在 x 轴上添加更多标签

Question

我有以下情节，但我想在 x axis 上添加额外的标签。

我已经尝试过 scale_x_continuous 但它不起作用，因为我的值不是数值，而是日期。

我该如何解决这个问题？

Answer 1

如果 "more x values" 表示您希望在 x 轴上有更多标签，那么您可以使用 scale_x_dates 参数调整频率，如下所示：

scale_x_date(date_breaks = "1 month", date_labels = "%b-%y")

这是我的工作示例。如果我误解了你的问题，请post你自己：

library("ggplot2")
# make the results reproducible
set.seed(5117)  

start_date <- as.Date("2015-01-01") 
end_date <- as.Date("2017-06-10")

# the by=7 makes it one observation per week (adjust as needed)
dates <- seq(from = start_date, to = end_date, by = 7)
val1 <- rnorm(length(dates), mean = 12.5, sd = 3)

qnt <- quantile(val1, c(.05, .25, .75, .95))

mock <- data.frame(myDate = dates, val1)

ggplot(data = mock, mapping = aes(x = myDate, y = val1)) +
  geom_line() +
  geom_point() +
  geom_hline(yintercept = qnt[1], colour = "red") +
  geom_hline(yintercept = qnt[4], colour = "red") +
  geom_hline(yintercept = qnt[2], colour = "lightgreen") +
  geom_hline(yintercept = qnt[3], colour = "lightgreen") +
  theme_classic() +
  scale_x_date(date_breaks = "1 month", date_labels = "%b-%y") +
  theme(axis.text.x = element_text(angle = 90, hjust = 1))

如何使用 ggplot 在 x 轴上添加更多标签

How to add more number of labels on x-axis using ggplot

plot

axis

r

ggplot2