I'd like to visualize a data using bar chart and ggplot
.
I have the data below, when I want to vis this data the text for negative values are not showing below the Bar .
dat <- read.table(text = "sample Types Value
sample1 A -36
sample2 B 31
sample1 C 15
sample2 D -12
sample1 E 27
sample2 F 16
sample2 G -10
sample2 H 2
sample2 I 6
sample2 J -7
sample2 K -8"
, header=TRUE)
library(ggplot2)
px <- ggplot(data = dat , aes(x = Types , y = Value , Colour = Types ))
px + geom_bar(stat = "identity" ,color = "#FFFFFF" , fill = "dodgerblue3") +
geom_text(aes(label=Value), position=position_dodge(width=0.9), hjust= -.25,vjust=0.25 ,size =3.5 , angle = 90)
Pass position of
geom_text
on y axis withy = Value + 2 * sign(Value)
Another plot with minor visual tweaks that I do on my plots:
As you have numbers with bars you don't need y-axis (it's redundant).