Question

我无法在运行以下代码时为两个已过滤的组显示两个geom_lines（如果需要数据，则可以共享csv以便更轻松地进行故障排除）。

我已经阅读了早期的stackoverflow问题和建议，以确保在aes中有一个group =“”和color =“”，我已经完成了。不确定在哪里调整。

library(dplyr)
library(ggplot2)
library(scales)

zillow_data <- read.csv("C:/published_apps/multi_app_zillow - zestimates/data/zillow_data.csv", 
                        stringsAsFactors = FALSE) 

#zillow_zestimate_sales
zillow_zestimate_sales <- filter(zillow_data,
                                 grepl("zestimate", zillow_data$type))

all <- zillow_zestimate_sales
all$date <- as.Date(all$Date, format='%m/%d/%Y')
all$beds <- as.numeric(all$beds)
all <- all %>% mutate(year = year(all$date))

plotbycity1 <- all %>%  
  filter(beds ==1) %>%
  ungroup() 

plotbycity <- plotbycity1 %>% 
  group_by(city, year) %>%
  filter(city %in% c("Arlington", "Watertown")) %>%
  dplyr::summarise(median_rent = median(Value), count = n()) %>%
  ungroup() 

ggplot(plotbycity, 
       aes(x = year, y = median_rent, group = city, 
           color = city, text = paste('obs: ', count))) +
  geom_line() +
  scale_y_continuous(labels = function(x) format(x, scientific = FALSE)) +
  theme(axis.text.x = element_text(angle = 45))+    
  ggtitle("Median Zestimates")

谢谢！

Answer 1

这是文件名中的减号吗？如果您没有在文件名中包含所有空格和符号，那会更好。当你在文件中阅读时，我会仔细检查你是否正好得到了你的想法。此外，我建议尝试使用readr :: read_csv（）来读取您的文件。将尝试自动正确解析您的数据并使StringsAsFactors（）无关紧要。

R ggplot使用分组对geom_line进行故障排除

1 个答案: