1

我想得到几个玫瑰图并将它们放在同一页面中进行比较。

我的问题是，当数据变大时，坐标和数据会自动适应，我希望所有数据在相同长度的坐标中的所有绘图的相同 MAX 值。换句话说，我想让所有的地块都以相同的标准显示地块的大小。

这是我的代码：

library(ggplot2)

data<-read.csv("data4line01292017-Average.csv",head=TRUE,sep=",")

cols<-c("green","blue","red")

p<-ggplot(data, aes(x=data$Range,y=data$Counts,fill=data$Length)) +
 geom_bar(width = 30, colour="black",stat="identity") +
 scale_y_discrete(drop = FALSE) +
 theme(legend.box.just = "top",legend.position = "bottom"
    ) +
 labs(title = "Distribution of A by length and directions",
    fill = "Length range(um)",
    y = "A counts", limits = c(0, 100),
    colour = "Cylinders") +
 ##coord_flip() +
 coord_polar(theta = "x", start=-pi/2, direction=-1) +
 scale_x_continuous("",  breaks = c(0,90,180,270), labels = c(0,90,180,270))

p

这是一组数据：

Range   Length  Counts
15  0-15um  2.428571429
45  0-15um  0
75  0-15um  0.714285714
105 0-15um  0.428571429
135 0-15um  0
165 0-15um  0.142857143
195 0-15um  0.142857143
225 0-15um  0.428571429
255 0-15um  0.428571429
285 0-15um  0.571428571
315 0-15um  0
345 0-15um  2.857142857
15  15-30um 3
45  15-30um 0
75  15-30um 0
105 15-30um 0
135 15-30um 0
165 15-30um 0
195 15-30um 0
225 15-30um 0
255 15-30um 0
285 15-30um 0
315 15-30um 0.142857143
345 15-30um 2.571428571
15  >30um   0.285714286
45  >30um   0
75  >30um   0
105 >30um   0
135 >30um   0
165 >30um   0
195 >30um   0
225 >30um   0
255 >30um   0
285 >30um   0
315 >30um   0
345 >30um   0

这是我得到 的玫瑰图：上述数据的玫瑰图图片

如果我使用另一组数据：

Range   Length  Counts
15  0-15um  3.428571429
45  0-15um  0
75  0-15um  0.714285714
105 0-15um  0.428571429
135 0-15um  0
165 0-15um  1.142857143
195 0-15um  1.142857143
225 0-15um  1.428571429
255 0-15um  1.428571429
285 0-15um  1.571428571
315 0-15um  0
345 0-15um  3.857142857
15  15-30um 4
45  15-30um 0
75  15-30um 0
105 15-30um 0
135 15-30um 0
165 15-30um 0
195 15-30um 0
225 15-30um 0
255 15-30um 0
285 15-30um 0
315 15-30um 1.142857143
345 15-30um 3.571428571
15  >30um   1.285714286
45  >30um   0
75  >30um   0
105 >30um   0
135 >30um   0
165 >30um   0
195 >30um   0
225 >30um   0
255 >30um   0
285 >30um   0
315 >30um   0
345 >30um   0

这是上面数据中的第二张玫瑰图

显然，玫瑰图看起来一样，但实际数据的值完全不同，它们之间的差距是 1，我希望所有这些图如果我将它们并排放置并且不想显示坐标标签，只是想让玫瑰图根据实际值显示出合适的大小。我应该在脚本中添加什么参数？

4

0 回答 0