Question

我试图绘制最小和最大温度，并使用正常的点图（使用pch = 16）它看起来正常，但是当我将绘图类型更改为line时（使用type =＆＃34; l＆＃34; ），它添加了一条似乎连接第一个和最后一个值的线。

有没有办法摆脱连接第一个和最后一个值的直线＆amp;为什么会这样？

以下是数据结构：

> y
Source: local data frame [365 x 6]
Groups: Month [12]

     Month   Day  Tmp_min  MonthDay_min Tmp_max 
     <fctr> <chr>   <dbl>      <chr>    <dbl>       
1      07    01      62        07/01      69    
2      07    02      61        07/02      67     
3      07    03      60        07/03      66      
4      07    04      60        07/04      64     
5      07    05      60        07/05      65      
6      07    06      61        07/06      66    
7      07    07      61        07/07      67     
8      07    08      61        07/08      69      
9      07    09      61        07/09      70     
10     07    10      62        07/10      69

这里有剧情代码：

plot(Tmp_min ~ as.Date(y$MonthDay_min, format='%m/%d'), data=y, type="l", 
col="turquoise", ylab="Temperature (F)",
  main=paste("Minimum and Maximum Daily Temperatures"), xlab="Month", 
  ylim=c(0,100))

points(Tmp_max ~ as.Date(y$MonthDay_min, format='%m/%d'), data=y, type="l", 
   col="orange", ylim=c(0,100))

这是线图：

以下是点图：

Answer 1

可能会发生这种情况，因为您有相同的开始和结束日期（它们可能在几年内有所不同，但您只有月份+日期）。参见示例：

date_seq = seq.Date(from = as.Date("2017/1/1"), to = as.Date("2018/1/1"), by = "day")
date_seq_month_day <- format(date_seq, format="%m-%d")
daily_white_noise = rnorm(length(date_seq))
dataframe <-data.frame(days = date_seq_month_day, observations = daily_white_noise)
plot(observations ~ as.Date(date_seq_month_day, format='%m-%d'), data=dataframe, type="l", col="turquoise", ylab="Temperature (F)", main=paste("Minimum and Maximum Daily Temperatures"), xlab="Month")

图片如下：

Answer 2

这个问题很可能是由于缺少了一年...尝试增加一年。

MonthDay_min <- c('07/01', '07/02', '07/03', '07/04', '06/30')
Tmp_min <- c(62, 70, 61, 58, 100)
Tmp_max <- c(69, 78, 66, 64, 105)

y <- data.frame(MonthDay_min, Tmp_min, Tmp_max)

year <- c(2016, 2016, 2016, 2016, 2017)

y$MonthDay_min <- paste(y$MonthDay_min, '/', year, sep = "")

plot(Tmp_min ~ as.Date(y$MonthDay_min, format='%m/%d/%Y'), data=y, type="l", 
     col="turquoise", ylab="Temperature (F)",
     main=paste("Minimum and Maximum Daily Temperatures"), xlab="Month", 
     ylim=c(0,100))

points(Tmp_max ~ as.Date(y$MonthDay_min, format='%m/%d/%Y'), data=y, type="l", 
       col="orange", ylim=c(0,100))

直线被添加到线图？

2 个答案: