使用ggplot2在R中的条形图上添加标签

使用ggplot2在R中的条形图上添加标签,r,ggplot2,labels,geom-bar,R,Ggplot2,Labels,Geom Bar,在ggplot2中,在条形图上插入标签时遇到了一些问题 到目前为止,我已经能够创建条形图 Pizza_bar <- ggplot(Pizza_Data_Research_Rockstar, aes(Number_of_times_eaten_pizza)) Times_eaten_pizza_7_days_bar <- Pizza_bar + geom_bar() Times_eaten_pizza_7_days_bar 不知道如何为类型的对象自动拾取比例 tbl_df/tbl/d

在ggplot2中,在条形图上插入标签时遇到了一些问题

到目前为止,我已经能够创建条形图

Pizza_bar <- ggplot(Pizza_Data_Research_Rockstar, aes(Number_of_times_eaten_pizza))
Times_eaten_pizza_7_days_bar <- Pizza_bar + geom_bar()
Times_eaten_pizza_7_days_bar
不知道如何为类型的对象自动拾取比例 tbl_df/tbl/data.frame。默认为连续。我不知道该怎么做 自动为函数类型的对象拾取比例。拖欠 连续的。函数(…,row.names=NULL,check.rows)中出错= FALSE,check.names=TRUE,:参数表示不同的 行数:46,0

这是我最接近添加标签的一次

有人能帮忙吗?谢谢


路易斯

我真的无法理解你的数据,所以我自己编了一个:

Days = c("Monday", "Tuesday", "Thursday", "Friday")
Pizzas = c(40, 50, 10, 25)
Pizzadf = as.data.frame(cbind(Days, Pizzas))
Pizzadf$Pizzas = as.numeric(as.character(Pizzadf$Pizzas))

Pizzadf

ggplot(data = Pizzadf, aes(x = Days, y = Pizzas))+ 
  geom_bar(stat = "identity", fill = "steelblue") + 
  geom_text(aes(label=Pizzas), vjust=-0.3, size=3.5) + 
  theme_minimal()

尝试修改和调整。

你能发布部分数据吗?我愿意这样做。但是,我在这里没有看到上载按钮。你能告诉我如何发布数据吗?好的,我已经准备好了标签。但是,我的y轴不正常。这是我的数据和代码。我感谢你的帮助。你可以复制/粘贴数据的前5-10行。th在使它更容易。你有多少列?有多少列为你的绘图提供信息?谢谢你的工作。我真的很感谢你的帮助。嗨,数据总共有18列。绘图提供一列的信息,吃比萨饼的次数。这是你要问的问题吗?
Days = c("Monday", "Tuesday", "Thursday", "Friday")
Pizzas = c(40, 50, 10, 25)
Pizzadf = as.data.frame(cbind(Days, Pizzas))
Pizzadf$Pizzas = as.numeric(as.character(Pizzadf$Pizzas))

Pizzadf

ggplot(data = Pizzadf, aes(x = Days, y = Pizzas))+ 
  geom_bar(stat = "identity", fill = "steelblue") + 
  geom_text(aes(label=Pizzas), vjust=-0.3, size=3.5) + 
  theme_minimal()