如何减小点阵条形图中条形之间的宽度？答案

【问题标题】：How to decrease the width between bars in lattice bar chart?如何减小点阵条形图中条形之间的宽度？
【发布时间】：2016-08-05 19:56:00
【问题描述】：

我正在使用以下代码并排生成 10 个条形图。

   library(reshape2)
   library(lattice) 

   data <- read.csv("/Users/.../data.csv", sep = ",") 
   df.long<-melt(data,id.vars=c("Vis","Task"))
   df.long

   barchart(Vis~value|Task,
         groups=Vis,data=df.long,layout=c(5,2),
         between = list(y=0.2),
         auto.key = list(rectangles = TRUE, space = 'top', columns = 5), 
         origin = 0,
         par.settings = list(fontsize=list(text=8) ),
         box.ratio = 1/4,
         box.width = 1
    )

这是我的 csv 格式数据。

Vis,Accuracy,Task
Bar chart,66,Anomalies
Line chart,52,Anomalies
Pie chart,80,Anomalies
Scatterplot,52,Anomalies
Table,66,Anomalies
Bar chart,100,Cluster
Line chart,33,Cluster
Pie chart,100,Cluster
Scatterplot,60,Cluster
Table,93,Cluster
Bar chart,90,Correlation
Line chart,30,Correlation
Pie chart,40,Correlation
Scatterplot,80,Correlation
Table,70,Correlation
Bar chart,73,Derived
Line chart,80,Derived
Pie chart,66,Derived
Scatterplot,86,Derived
Table,100,Derived
Bar chart,46,Distribution
Line chart,60,Distribution
Pie chart,60,Distribution
Scatterplot,73,Distribution
Table,46,Distribution
Bar chart,100,Extremum
Line chart,77.7,Extremum
Pie chart,94,Extremum
Scatterplot,61,Extremum
Table,88.8,Extremum
Bar chart,100,Filter
Line chart,75,Filter
Pie chart,100,Filter
Scatterplot,83,Filter
Table,83,Filter
Bar chart,75,Order
Line chart,66,Order
Pie chart,50,Order
Scatterplot,58,Order
Table,59,Order
Bar chart,40,Range
Line chart,66.6,Range
Pie chart,100,Range
Scatterplot,93,Range
Table,93,Range
Bar chart,91,Retrieve
Line chart,66,Retrieve
Pie chart,100,Retrieve
Scatterplot,75,Retrieve
Table,100,Retrieve

我生成了以下可视化，但条形之间的距离非常高。如何减小宽度？

【问题讨论】：

如果您在问题中提供带有示例数据的reproducible example，则更容易提供帮助。我们无法加载您的本地数据进行测试。
@MrFlick 我添加了上面的数据。如果您能帮我解决这个问题，我将不胜感激。

标签： r bar-chart lattice

【解决方案1】：

问题是您使用Vis 作为 y 变量和分组变量。这在晶格中效果不佳。最简单的解决方法可能只是制作一个堆叠的条形图。

barchart(Vis~value|Task,
    groups=Vis,
    stack=T,
    data=df.long,
    layout=c(5,2),
    auto.key = list(rectangles = TRUE, space = 'top', columns = 5), 
    origin = 0,
    par.settings = list(fontsize=list(text=8) )
)

您也可以从 y 轴上移除 Vis，您基本上是用颜色图例对其进行双重标记。

barchart(~value|Task,
    groups=Vis,
    data=df.long,
    layout=c(5,2),
    auto.key = list(rectangles = TRUE, space = 'top', columns = 5), 
    origin = 0,
    par.settings = list(fontsize=list(text=8) )
)

这是格子绘图系统的一种弱点。你可以用 ggplot 更轻松地做这样的事情

库（ggplot2）

ggplot(df.long, aes(Vis, value, fill=Vis)) + 
    geom_bar(stat='identity') +
    coord_flip() + facet_wrap(~Task, ncol=5) +
    theme(legend.position="top") + 
    scale_fill_discrete(name="")

【讨论】：