[英]Plotly R: change hoverinfo font color according to different bar colors
[英]Change bar color according to the size of the bar R
使用 ggplot 我已經制作了一個帶有一些值的直方圖。 我想更改最高條的顏色,以使 plot 更清晰。
library(ggplot2)
ggplot(df,
aes(as.Date(created_at), as.numeric(count))) +
geom_col(fill = 'cornflowerblue') +
theme_minimal(base_size = 10) +
xlab(NULL) + ylab(NULL) +
scale_x_date(date_labels = "%Y/%m/%d",date_breaks = "days",expand = c(0,0)) + #El espaciado por días
theme(axis.text.x=element_text(angle=90, vjust = 0.5))+#Cambiamos la posición del x
geom_text(aes(label = count, y = count+50), position = position_dodge(0.9),angle=90, vjust = 0.5,size=3)+
ggplot2::theme(
plot.title = ggplot2::element_text(face = "bold",colour = "black"))+
ggplot2::labs(
x = NULL, y = NULL, #Info en cada eje
title = "Tweets sobre el COVID-19 por día", #Texto
subtitle = ""
)
我試過這個,但不起作用
covidtweets %>%
mutate(col=ifelse(count==max(count), "red","blue")) %>%
ggplot( aes(as.Date(created_at), as.numeric(count),fill=as.factor(col))) +
theme_minimal(base_size = 10) +
#geom_line(data = spain_deaths, aes(as.Date(time), as.numeric(cum_dead)), color= 'blue4', size=1.1)+
#geom_point(color="red")+
xlab(NULL) + ylab(NULL) +
scale_x_date(date_labels = "%Y/%m/%d",date_breaks = "days",expand = c(0,0)) + #El espaciado por días
theme(axis.text.x=element_text(angle=90, vjust = 0.5))+#Cambiamos la posición del x
geom_text(aes(label = count, y = count+50), position = position_dodge(0.9),angle=90, vjust = 0.5,size=3)+
ggplot2::theme(
plot.title = ggplot2::element_text(face = "bold",colour = "black"))+
ggplot2::labs(
x = NULL, y = NULL, #Info en cada eje
title = "Tweets sobre el COVID-19 por día", #Texto
subtitle = ""
)
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.