,可以通过以下步骤实现:
library(ggplot2)
data <- data.frame(category = c("A", "B", "C"), value = c(10, 20, 30))
plot <- ggplot(data, aes(x = category, y = value))
plot <- plot + geom_bar(stat = "identity", width = 0.5)
plot <- plot + geom_text(aes(label = value), position = position_stack(vjust = 0.5))
plot <- plot + theme(axis.title.x = element_blank(),
axis.title.y = element_blank(),
plot.title = element_text(hjust = 0.5))
完整的代码如下:
library(ggplot2)
data <- data.frame(category = c("A", "B", "C"), value = c(10, 20, 30))
plot <- ggplot(data, aes(x = category, y = value))
plot <- plot + geom_bar(stat = "identity", width = 0.5)
plot <- plot + geom_text(aes(label = value), position = position_stack(vjust = 0.5))
plot <- plot + theme(axis.title.x = element_blank(),
axis.title.y = element_blank(),
plot.title = element_text(hjust = 0.5))
plot
这段代码将创建一个带有条形图和居中文本标签的ggplot对象,并且通过设置主题样式使得图形更加美观。你可以根据实际需求调整条形图的宽度、文本标签的位置和样式等。
领取专属 10元无门槛券
手把手带您无忧上云