在R中使用ggplot創建地毯

Question

我有一個數據框，有496個觀察變量，它們是case，water81，water80，water79，income，education，retire，peop81，cpeop，peop80。現在Iam有興趣創建一個ggplot（退休收入分配）。我還需要在情節的左側創建一個地毯。但是當我嘗試時，地毯被注意在左側和右側創建，但僅在頂部和底部創建。

ggplot(data=dataframe,aes(x=income,fill=retire))+ 
    geom_histogram()+geom_rug(sides="t",color="red") 

當sides =「b」或「t」地毯被創建時。如果我使用地毯=「l」或「r」地毯沒有創建。

Answer 1

哪裏會想到該系統把地毯痕跡例圖的y軸？而且，同樣重要的是：你會如何解讀它們？地毯標記不適用於這種數據顯示。

提供您的代碼將幫助重複的例子，但即使沒有它，我可以告訴你沒有映射y變量，它geom_rug需要做出y軸地毯的痕跡。

如果您堅持這樣做，您需要手動生成y軸位置，然後將它們傳遞到ggplot。 （請注意，我用的管道從magrittr構建數據）

toPlot <- 
    mpg %$% 
    table(class, cyl) %>% 
    as.data.frame() 

ggplot(toPlot 
     , aes(x = class 
      , fill = cyl 
      , col = cyl 
      , y = Freq)) + 
    geom_bar(stat = "identity" 
      , position = "dodge") + 
    geom_rug() 

注意，我躲着吧。否則，您的地毯標記可能會a）與酒吧不一致，或者b）沒有酒吧不能解釋。

下面是使用的例子的數值變量，使用cut把它分解成像一個柱狀圖箱：

toPlotNum <- 
    mpg %$% 
    table(class 
     , City = cut(cty,pretty(cty))) %>% 
    as.data.frame() 

ggplot(toPlotNum 
     , aes(x = City 
      , fill = class 
      , col = class 
      , y = Freq)) + 
    geom_bar(stat = "identity" 
      , position = "dodge") + 
    geom_rug() 

或者，顯示密度，而不是：

library(stringr) 

ggplot(mpg 
     , aes(x = cty 
      , col = word(trans, sep = fixed("(")))) + 
    geom_density() + 
    geom_rug()