如何在R语言中使用plot函数为折线图添加断点或空白？

Got it, let's work through how to add breaks or blank spaces to a line chart using only base R's plot() function—since switching to ggplot isn't an option for your large project. I'll use your temperature data example (missing the 4th day) to walk through practical, actionable methods:

Base R's lines() function natively stops drawing when it hits an NA value, then resumes at the next non-NA entry. This is the simplest approach if you can mark missing data points as NA in your dataset.

示例代码： #

# 创建模拟月度温度数据：1-31日，4日数据设为NA（缺失）
dates <- 1:31
temp <- rnorm(31, mean = 20, sd = 3)  # 生成随机温度数据
temp[dates == 4] <- NA  # 将4日的温度标记为缺失

# 先绘制空坐标轴（type="n"），确保x轴覆盖所有日期
plot(dates, temp, type = "n", 
     xlab = "日期", ylab = "温度", 
     main = "月度温度变化（4日数据缺失）")

# 绘制折线：遇到NA会自动断开
lines(dates, temp, lwd = 2, col = "steelblue")

# 添加数据点，仅显示有数据的日期
points(dates, temp, pch = 16, col = "darkred")

If your raw data doesn't include the missing date at all (not even as an NA), split your dataset into segments before and after the missing period, then plot each segment separately.

示例代码： #

# 假设原始数据只有1-3日和5-31日的温度，无4日记录
dates_segment1 <- 1:3
temp_segment1 <- rnorm(3, mean = 20, sd = 3)
dates_segment2 <- 5:31
temp_segment2 <- rnorm(27, mean = 20, sd = 3)

# 绘制空坐标轴，x轴范围覆盖整个月份
plot(c(dates_segment1, dates_segment2), c(temp_segment1, temp_segment2), 
     type = "n", xlim = c(1, 31),
     xlab = "日期", ylab = "温度", 
     main = "月度温度变化（4日数据缺失）")

# 绘制第一段折线（1-3日）
lines(dates_segment1, temp_segment1, lwd = 2, col = "steelblue")
points(dates_segment1, temp_segment1, pch = 16, col = "darkred")

# 绘制第二段折线（5-31日）
lines(dates_segment2, temp_segment2, lwd = 2, col = "steelblue")
points(dates_segment2, temp_segment2, pch = 16, col = "darkred")

# 可选：在缺失位置添加标注
text(4, mean(c(max(temp_segment1), min(temp_segment2))), 
     "数据缺失", col = "gray50", font = 2)

If you have multiple non-consecutive missing periods, use this method to automatically detect and plot each continuous segment of valid data.

示例代码： #

# 创建模拟数据：4-5日连续缺失
dates <- 1:31
temp <- rnorm(31, mean = 20, sd = 3)
temp[c(4, 5)] <- NA  # 标记4-5日为缺失

# 绘制空坐标轴
plot(dates, temp, type = "n", 
     xlab = "日期", ylab = "温度", 
     main = "月度温度变化（4-5日数据缺失）")

# 获取所有非NA数据的索引
non_na_indices <- which(!is.na(temp))

# 循环绘制每一段连续的有效数据
start_idx <- non_na_indices[1]
for (i in 2:length(non_na_indices)) {
  # 检查当前索引与前一个是否连续
  if (non_na_indices[i] != non_na_indices[i-1] + 1) {
    # 绘制上一段连续数据
    lines(dates[start_idx:(i-1)], temp[start_idx:(i-1)], 
          lwd = 2, col = "steelblue")
    points(dates[start_idx:(i-1)], temp[start_idx:(i-1)], 
           pch = 16, col = "darkred")
    # 更新起始索引为当前段的起点
    start_idx <- non_na_indices[i]
  }
}

# 绘制最后一段连续数据
lines(dates[start_idx:length(non_na_indices)], temp[start_idx:length(non_na_indices)], 
      lwd = 2, col = "steelblue")
points(dates[start_idx:length(non_na_indices)], temp[start_idx:length(non_na_indices)], 
       pch = 16, col = "darkred")

These methods all use base R exclusively, so they'll fit seamlessly into your existing large project without needing to switch to ggplot.

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