小编Nie*_*efn的帖子

是否可以使用ggplot2使轴上的每个第N个刻度变粗？我只想让轴刻度为粗体(小线),而不是文本.

这对于在绘图中显示每日数据时突出显示每7个刻度非常有用.我想保留每天的刻度线.

我无法找到关于这个主题的任何内容,任何帮助将不胜感激!

编辑:这是一个代码示例.我在最后一行扩展它以增加所有刻度的大小.我想要的是让每个第N个标签更大.例如每7日.由于我正在处理每天都在变化的数据,因此手动定义每个第7个都不起作用.

library(ggplot2)
library(lubridate)
theme_set(theme_bw())

df <- economics_long[economics_long$variable %in% c("psavert", "uempmed"), ]
df <- df[lubridate::year(df$date) %in% c(1967:1981), ]

# labels and breaks for X axis text
brks <- df$date[seq(1, length(df$date), 12)]
lbls <- lubridate::year(brks)

# plot
ggplot(df, aes(x=date)) + 
  geom_line(aes(y=value, col=variable)) + 
  labs(title="Time Series of Returns Percentage", 
       subtitle="Drawn from Long Data format", 
       caption="Source: Economics", 
       y="Returns %", 
       color=NULL) +  # title and caption
  scale_x_date(labels = lbls, breaks = brks) +  # change to monthly ticks and labels
  scale_color_manual(labels …