R ggplotグループ化してgeom_lineをトラブルシューティングします

Question

次のコードを実行すると、両方のgeom_linesをフィルタリングしたグループに表示することができません。トラブルシューティングを容易にするためにデータが必要な場合はcsvを共有できます。

以前のstackoverflowに関する質問を読んだことがありました。私が行ったエースに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（）を使ってみることをお勧めします。あなたのデータを自動的に解析し、S​​tringsAsFactors（）を無関係にします。