Список групп График в линейном графике In R Issue

Question

У меня есть список групп, которые разделяют данные по zipcode и месяцам. У меня возникают проблемы с построением данных в линейном графике.

data <- read.csv("./data/rental_12_11_2015_365.csv") 
data$Listing.Contract.Date <- as.Date(data$Listing.Contract.Date, format = "%Y-%m-%d") 
data$Month_Int <- as.numeric(strftime(data$Listing.Contract.Date,"%m")) 
data$Month_Char <- month.abb[data$Month_Int] 
groups_zipcode <- with(data, split(data, list(Zip.Code, Month_Char))) 
summaryofgroups <- lapply(groups_zipcode, function(group){nrow(group)}) 

ggplot (данные = groups_zipcode, АЕС (х = Month_Char, у = summaryofgroups, группа = Zip.Code, Col = Zip.Code)) + geom_line()

Выходной то, что я ниже, но за все месяцы и т. д. я не вставлял все. Ggplot производит «Ошибка: ggplot2 не знает, как обращаться с данными списка классов».

$`75013.Apr` 
[1] 11 

$`75025.Apr` 
[1] 39 

$`75035.Apr` 
[1] 71 

$`75070.Apr` 
[1] 103 

$`75071.Apr` 
[1] 43 

$`75075.Apr` 
[1] 15 

$`75093.Apr` 
[1] 13 

$`75013.Aug` 
[1] 18 

$`75025.Aug` 
[1] 39 

$`75035.Aug` 
[1] 80 

$`75070.Aug` 
[1] 93 

$`75071.Aug` 
[1] 49 

$`75075.Aug` 
[1] 16 

$`75093.Aug` 
[1] 19 

Решение:

Привет я был в состоянии найти решение. Это то, что я пытался сделать. Удачи кому-либо еще в подобной ситуации.

inventory_graph <- ggplot(data = data, aes(x=Month_Char, fill = as.factor(Zip.Code))) + geom_histogram(position = "dodge") 

Answer 1

Ваши данные в нужном формате, вы можете сделать это очень просто с помощью ggplot:

#Some fake data in the same format as you pasted 
fake_data <- data.frame("Zip" = factor(rep(c(12345, 98765, 56473), 4)), 
        "Month" = factor(rep(c("April", "May", "June", "July"), each=3), levels=c("April", "May", "June", "July")), 
        "Count" = sample(20:50, 12)) 
library(ggplot2) 

ggplot(data = fake_data, aes(x=Month, y=Count, group=Zip, col=Zip)) + geom_line()