data.Rhtml

library(ggplot2)
df <- data.frame(occurence=c(298759991,11484189,1810077,215808092,104333209,17143812,114540030,42590151,1144439783,154390338,11484188,114540030,9503770194,154347908,3026876265,154410344,2653724,5308251,189596913,104333209,154452826,115051553,1143826263,109438629,115051553,1144648674,28314551,7741798227,81556760,33585955,30875425,81556760,114540030,298759991,28314551,1144648674,28314551,154448965,5226152,11484189,114540399,5864325601,667034,42365388,1685717,94822397,109801423,369,321891804,17143812,42996059,42590151,39605097,264501984,114540030,115051553,114540030,115051553,28314551,42590151,104333209,109801423,109801423,161661924,115051553,1465300,345932776,109801423,161534284,161619014,369,39128807,23352041,667034,104333209,42334071,298759991,1144648674,667034,42590151,104333209,2411620,28314551,51994171,11533504,28314551,109801423,11484189,104333209,1144648674,1144648674,42590151,667034,81556760,2393176) )
df_sorted <- df[order(-df$occurence),] 
df <- data.frame(occurence=df_sorted)
df$pos <- 1:95
p<-ggplot(data=df, aes(x=pos, y=occurence, fill=pos[95:1])) + geom_bar(stat="identity", width = 0.5) +labs(x = "Prefix")+ labs(y = "Occurrences") + scale_y_sqrt(breaks=c(df$occurence[1:5],df$occurence[12],df$occurence[24],df$occurence[55],df$occurence[76]),labels=formatC(c(df$occurence[1:5],df$occurence[12],df$occurence[24],df$occurence[55],df$occurence[76]),format="f",digits=0,big.mark=" ")) + guides(fill=FALSE) +   theme(axis.text.x=element_blank(),axis.ticks.x=element_blank())
p
df<-df[df$occurence < 1144648674,]
df$pos <- 1:86

df$small<-df$occurence/1000000000
summe<-sum(df$small)
df$norm<-df$small/summe
df$pos_inv <- 1/(df$pos*log(1.78*95))
f<-ggplot(data=df, aes(x=norm,y=pos_inv)) + geom_point(size=2)
f