在ggplot2条形图中标记NA

作者: 1号
发布时间: 2023-08-17 09:50:52 (11月前)
转自：

3 条回复

0#
回复此人
نسر الصحراء | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 试试这个： </p> <pre> <code> library(ggplot2) #reproduce your dataset dataset <- data.frame( Area = c( "East Devon 005A", "East Devon", "Devon", "SW", "England", "IMD - Q3", "Eastern Locality" ), IMD_Score = c(NA, NA, 65.00236, 60.28269, 57.61097, 56.90886, 55.07258) ) # this a trick to keep rows with NA dataset$IMD_Score_to_plot <- if_else(is.na(dataset$IMD_Score), 0, dataset$IMD_Score) #create the label with No data available dataset$IMD_Score_label <- if_else(dataset$IMD_Score_to_plot == 0, "No data available", "") #plot (the clue is using two geom_text) latestChart = ggplot(dataset, aes_string(y = colnames(dataset[3]), x = colnames(dataset[1]))) + geom_col(fill = "#1f78b4") + coord_flip() + scale_x_discrete(dataset$Area) + labs(y = "xAxisTitle", title = "chartTitle") + theme_bw() + theme( panel.background = element_rect(fill = NA), panel.ontop = TRUE, panel.grid = element_line( colour = "grey", size = 0.25, linetype = "dashed" ), axis.title.y = element_blank() ) + geom_text( label = dataset$IMD_Score_to_plot, na.rm = FALSE, vjust = 0.5, hjust = 5 ) + geom_text(label = dataset$IMD_Score_label, vjust = 0.5, hjust = 0) latestChart </code> </pre> <P> 这是输出，我认为这是你想要的： <a href="https://i.stack.imgur.com/tjFsS.png" rel="nofollow noreferrer"> <img src =“https://i.stack.imgur.com/tjFsS.png”alt =“在此处输入图片说明”/> </A> </p> </DIV>

编辑
1#
回复此人
故人 | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 修改了你的代码。主要是改变加两个 <code> geom_text </code> 并删除 <code> geom_label </code> ： </p> <pre> <code> ggplot(dataset, aes(y = IMD_Score, x = Area)) + geom_col(fill="#1f78b4") + coord_flip() + scale_x_discrete() + labs(y=xAxisTitle, title=chartTitle) + geom_text(aes(label= round(IMD_Score, 2), y = IMD_Score - 3), col = "white", size = 4) + geom_text(aes(label = ifelse(is.na(IMD_Score), "No data available", ""), y = 3), col = "gray", hjust = 0) + theme_bw() + theme( panel.background = element_rect(fill = NA),panel.ontop = TRUE, panel.grid = element_line(colour = "grey", size=0.25, linetype = "dashed"), axis.title.y=element_blank() ) </code> </pre> <P> <a href="https://i.stack.imgur.com/zOTj5.png" rel="nofollow noreferrer"> <img src =“https://i.stack.imgur.com/zOTj5.png”alt =“在此处输入图片说明”/> </A> </p> </DIV>

编辑

登录后才能参与评论