如何在 R 中随时间绘制 TRUE 值？答案

【问题标题】：How do I plot TRUE values over time in R?如何在 R 中随时间绘制 TRUE 值？
【发布时间】：2016-03-08 02:28:04
【问题描述】：

例如我有一个这样的数据框：

Year|Value
2013|TRUE
2013|TRUE
2013|TRUE
2013|TRUE
2013|FALSE
2013|FALSE
2013|TRUE
2013|FALSE
2014|TRUE
2014|FALSE
2014|FALSE
2014|TRUE
2015|TRUE
2015|TRUE
2015|FALSE
2015|FALSE
2015|TRUE
2015|TRUE

我想绘制一个每年真实总数的折线图。

我试过了

data <- data.frame('t'=year, 'a'=Value)
plot(data)

...但它在 x 轴和 y 轴上给出年份 0 或 1（这是对还是错。而不是每年 TRUEs 的数量。

【问题讨论】：

R 是“愚蠢的”，只会绘制你给它的东西。您正在逐年重复绘制1 (TRUE) 和0 (FALSE)。您需要先 ?aggregate 您的数据来计算值 - plot(Value ~ Year, data=aggregate(Value ~ Year, data=dat, sum), type="l")

标签： r plot linegraph

【解决方案1】：

我想绘制一个每年真实总量的折线图。

诀窍在于转换您的数据以显示您希望情节显示的内容：count 每一年的真相，而不是每个观察到的年份布尔值。

这是减少数据的dplyr 方法。它过滤TRUE 值，然后计算每年出现多少行TRUE 值。

减少

library(dplyr)
library(ggplot2)

tab = structure(list(Year = c(2013L, 2013L, 2013L, 2013L, 2013L, 2013L, 2013L, 2013L, 2014L, 2014L, 2014L, 2014L, 2015L, 2015L, 2015L, 2015L, 2015L, 2015L), Value = c(TRUE, TRUE, TRUE, TRUE, FALSE, FALSE, TRUE, FALSE, TRUE, FALSE, FALSE, TRUE, TRUE, TRUE, FALSE, FALSE, TRUE, TRUE)), .Names = c("Year", "Value"), class = "data.frame", row.names = c(NA, -18L))
tab_sum = tab %>% group_by(Year) %>%
  filter(Value) %>%
  summarise(trues = n()) 
# Source: local data frame [3 x 2]
# 
#    Year trues
#   (int) (int)
# 1  2013     5
# 2  2014     2
# 3  2015     4

情节

现在数据中的每一行都为绘图提供了 x 和 y 对：

ggplot(tab_sum, aes(Year, trues)) + geom_line()

【讨论】：

你需要解释/记录你的答案。

【解决方案2】：

听起来您想创建 True 值的直方图，对吗？如果是这样，这是最简单的方法：

重新创建数据集：

year = c(2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
     2014, 2014, 2014, 2014, 
     2015, 2015, 2015, 2015,2015, 2015) 

value = c(TRUE, TRUE, TRUE, TRUE, FALSE, FALSE, TRUE, FALSE, 
      TRUE, FALSE, FALSE, TRUE, 
      TRUE, TRUE, FALSE, FALSE, TRUE, TRUE) 

data <- data.frame('year'=year, 'value'=value)

data$year_factor<-as.factor(as.character(data$year))

data$year_date<-as.Date(as.character(data$year), "%Y")

基本上，您要求计算每年的真实值所以我们将分割我们的数据集，所以它只包含 True 值：

shortdata <-data[data$value,]

丑陋的版本：

hist(shortdata$year_date, breaks = 3, freq = T)

粗糙但稍微漂亮一点的版本：

qplot(shortdata$year)

但是，好的，你想要一个折线图版本。以下是你的做法。

折线图版本：

require(plyr)

freqdf = ddply(shortdata, .(year_factor), summarize, 
               freq = length(year_factor))

freqdf$year_factor <-as.numeric(as.character(freqdf$year_factor))

require(ggplot2)
ggplot(data=freqdf, aes(x=year_factor, y=freq))+geom_line()+
  scale_y_continuous(limits=c(0, 6))+
  ggtitle("True Values Over Three Years")

希望这会有所帮助！祝你的绘图好运！

【讨论】：