如何修改日期轴刻度并旋转90度？timeSeries::plot刻度设置求助

让我来一步步帮你解决这两个问题，先从通用的日期轴刻度旋转说起，再针对timeSeries::plot的特殊需求处理：

1. 修改日期轴刻度并旋转90度（通用R绘图场景） #

这个需求在Base R和ggplot2中都有成熟的实现方式，分两种情况说明：

Base R 实现方式 #

如果你用的是Base R的原生绘图函数，核心思路是先隐藏默认X轴，再手动自定义刻度：

# 1. 准备示例数据
dates <- seq(as.Date("2024-01-01"), by = "day", length.out = 10)
values <- rnorm(10)

# 2. 绘制基础图形，设置xaxt="n"隐藏默认X轴
plot(dates, values, xaxt = "n", xlab = "Data", ylab = "Valor", main = "Eixo de Data Rotacionado")

# 3. 自定义刻度：比如每2天显示一个，旋转90度
# 定义要显示的日期点
axis_dates <- seq(as.Date("2024-01-01"), by = "2 days", length.out = 5)
# 添加X轴，las=2参数让标签垂直显示
axis(1, at = axis_dates, labels = format(axis_dates, "%d/%m"), las = 2, cex.axis = 0.8)

关键参数说明：las=2强制标签垂直，format()可以自定义日期显示格式（比如%d/%m是日/月，%a是星期缩写）。

ggplot2 实现方式 #

如果你用ggplot2，通过theme()和scale_x_date()组合实现：

library(ggplot2)
library(scales)

# 准备数据框
df <- data.frame(date = dates, value = values)

ggplot(df, aes(x = date, y = value)) +
  geom_line(color = "#2c3e50") +
  # 设置X轴刻度间隔（比如每2天一个）和显示格式
  scale_x_date(breaks = "2 days", labels = date_format("%d/%m")) +
  # 旋转刻度90度，调整垂直/水平对齐避免偏移
  theme(axis.text.x = element_text(angle = 90, vjust = 0.5, hjust = 1),
        plot.title = element_text(hjust = 0.5)) +
  labs(title = "Gráfico ggplot2 com Eixo de Data Rotacionado", x = "Data", y = "Valor")

2. 调整timeSeries::plot的刻度垂直显示并仅展示一周3天 #

timeSeries包的绘图函数基于Base R，但需要结合时间序列的索引特性来筛选刻度。以下是针对你的需求（仅显示一周3天的葡萄牙语星期标签，垂直显示）的完整解决方案：

步骤1：准备示例数据与设置葡萄牙语 locale #

library(timeSeries)

# 生成一周7天的时间序列数据
dates <- seq(as.Date("2024-01-01"), by = "day", length.out = 7)
set.seed(123)
ts_data <- timeSeries(rnorm(7), dates)

# 设置系统locale为葡萄牙语（不同系统可能需要调整字符串：
# Windows: "Portuguese_Brazil.1252" | Linux/macOS: "pt_PT.UTF-8"）
Sys.setlocale("LC_TIME", "pt_PT.UTF-8")
# 获取葡萄牙语的星期缩写
week_labels <- weekdays(time(ts_data), abbreviate = TRUE)

步骤2：筛选要显示的3天 #

假设你想显示周一、周三、周五（对应葡萄牙语缩写Seg, Qua, Sex）：

# 定义目标星期标签
target_days <- c("Seg", "Qua", "Sex")
# 获取这些日期在时间序列中的索引位置
keep_indices <- which(week_labels %in% target_days)
# 提取对应的日期点
keep_dates <- time(ts_data)[keep_indices]

步骤3：绘制timeSeries并自定义刻度 #

# 绘制时间序列，设置xaxt="n"隐藏默认X轴
plot(ts_data, xaxt = "n", main = "Time Series com Apenas 3 Dias da Semana", 
     xlab = "Dia da Semana", ylab = "Valor")

# 添加自定义X轴：垂直显示筛选后的星期标签
axis(1, at = keep_dates, labels = week_labels[keep_indices], las = 2, cex.axis = 0.8)

注意事项 #

• 如果locale设置失败，尝试切换为对应系统的葡萄牙语locale字符串（比如Windows用"Portuguese_Brazil.1252"）；
• 如果你的时间序列是高频数据（比如小时级），需要先按日期分组，再选择每天的一个代表点作为刻度位置；
• cex.axis参数可以调整标签大小，避免重叠。

内容的提问来源于stack exchange，提问作者Gilgamesh