0

我正在尝试绘制最低和最高温度，并且使用正常的点图（使用 pch = 16）它看起来很正常，但是当我将绘图类型更改为线（使用 type="l"）时，它添加了一条看起来连接第一个和最后一个值。

有没有办法摆脱连接第一个和最后一个值的直线以及为什么会发生这种情况？

这是数据结构：

> 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))

这是线图： 最低和最高温度

这是点图： 在此处输入图像描述

4

2 回答 2

3

可能发生这种情况是因为您具有相同的开始日期和结束日期（它们的年份可能不同，但您只有月+日）。请参阅示例：

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")

图片将是这样的： 在此处输入图像描述

于 2017-07-20T13:33:39.687 回答
1

此问题可能是由于缺少年份...尝试添加年份。

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))
于 2017-07-20T13:33:33.697 回答