То, что вы ищете, похоже на гистограмму, а не на гистограмму.
RefPub = c(0,1,2,3,4,5,6,7,8,9,10)
FacMem = c(28,4,3,4,4,2,1,0,2,1,1)
barplot(FacMem, names.arg=RefPub)
С ggplot2
,
library(ggplot2)
df = data.frame(RefPub=RefPub,
FacMem=FacMem)
ggplot(data=df, aes(x=RefPub, y=FacMem)) +
geom_bar(stat="identity") +
scale_x_continuous(breaks=0:10) +
scale_y_continuous(breaks=c(0,5,10,15,20))