控制从 ggplot2 中的因子变量生成的饼图中的刻度和奇数文本
Controlling ticks and odd text in a pie chart generated from a factor variable in ggplot2
我正在使用以下代码生成一个简单的饼图:
data(mtcars)
mtcars$fac_var <- as.factor(mtcars$cyl)
require(ggplot2); require(ggthemes)
# Chart
pie_test <- ggplot(mtcars, aes(x = factor(1), fill = fac_var)) +
geom_bar(width = 1) +
coord_polar(theta = "y") +
ggtitle("Title") +
theme_pander() +
scale_fill_tableau(name = "Something") +
theme(axis.title = element_blank())
代码生成以下图表:
我有兴趣对上面的图表进行两个小的修改:
- 我想删除左边可见的1图(下图中红色高亮部分).
- 我想使通往数字的线条更加明显(在下图中以黑色突出显示)。
所需更改:
1.) 去掉“1-”
将您的主题编辑为:
theme(axis.title = element_blank(),
axis.ticks.y = element_blank(),
axis.text.y = element_blank())
2.) 要更改行,请将您的主题编辑为:
theme(axis.title = element_blank(),
axis.ticks.y = element_blank(),
axis.text.y=element_blank(),
panel.grid.major.y = element_line(size = 1, color="black", linetype = "solid"))
不是完美的解决方案,而是一种改进。饼图不是传达数据的最佳选择。您可能需要考虑条形图。如果您需要有关 ggplot2 饼图的更多帮助,请查看 this post.
我正在使用以下代码生成一个简单的饼图:
data(mtcars)
mtcars$fac_var <- as.factor(mtcars$cyl)
require(ggplot2); require(ggthemes)
# Chart
pie_test <- ggplot(mtcars, aes(x = factor(1), fill = fac_var)) +
geom_bar(width = 1) +
coord_polar(theta = "y") +
ggtitle("Title") +
theme_pander() +
scale_fill_tableau(name = "Something") +
theme(axis.title = element_blank())
代码生成以下图表:
我有兴趣对上面的图表进行两个小的修改:
- 我想删除左边可见的1图(下图中红色高亮部分).
- 我想使通往数字的线条更加明显(在下图中以黑色突出显示)。
所需更改:
1.) 去掉“1-” 将您的主题编辑为:
theme(axis.title = element_blank(),
axis.ticks.y = element_blank(),
axis.text.y = element_blank())
2.) 要更改行,请将您的主题编辑为:
theme(axis.title = element_blank(),
axis.ticks.y = element_blank(),
axis.text.y=element_blank(),
panel.grid.major.y = element_line(size = 1, color="black", linetype = "solid"))
不是完美的解决方案,而是一种改进。饼图不是传达数据的最佳选择。您可能需要考虑条形图。如果您需要有关 ggplot2 饼图的更多帮助,请查看 this post.