在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()