使用分類數據創建折線圖

Question

試圖在檢查年份顯示“等級”，計數只是數據框中的觀察值。

創建快速表：

table(mydata1$Grade,mydata1$Inspection.Year)

創建快速條形圖：

ggplot(mydata1, aes(fill=Grade , x=Inspection.Year)) +
  geom_bar()

我想用折線圖做同樣的事情，但沒有運氣

ggplot(mydata1, aes(fill=Grade , x=Inspection.Year)) +
  geom_line()

有什么想法嗎？

謝謝！

Answer 1

假設您的數據如下所示：

mydata1 = data.frame(
Inspection.Year=sample(2000:2005,100,replace=TRUE),
Grade=sample(LETTERS[1:3],10,replace=TRUE))

您需要計算您的計數並將它們繪制在 y 軸上，如下所示：

library(dplyr)

mydata1 %>% count(Inspection.Year,Grade)
# A tibble: 17 x 3
   Inspection.Year Grade     n
             <int> <fct> <int>
 1            2000 A        11
 2            2000 B         6
 3            2000 C         1
 4            2001 A         8

並繪制這個：

mydata1 %>% count(Inspection.Year,Grade) %>%
ggplot()+geom_line(aes(x=Inspection.Year,y=n,col=Grade))

或類似於 geom_bar 中的“填充”，您設置 y=1，並使用 stat_summary 來總結每個年級/年的 1，這將為您提供 n：

ggplot(mydata1, aes(col=Grade , x=Inspection.Year,y=1))+ stat_summary(geom="line",fun.y=sum)

兩者都給出了下面的情節：