#activate the package
library(ggplot2)

#load the dataframe
ID <- 1:2
location <- c("Lygra", "Østerbø")
precipitations <- c(1229.8, 515.9)
my.dataframe <- data.frame(ID, location, precipitations)

#simple bar chart with ggplot()
ggplot(my.dataframe, aes(location, precipitations)) +
  geom_col()

#simple horizontal bar chart with ggplot()
ggplot(my.dataframe, aes(location, precipitations)) +
  geom_col() +
  coord_flip()

#changing the width
ggplot(my.dataframe, aes(location, precipitations)) +
  geom_col(width=.5) +
  coord_flip()

#changing the colors
ggplot(my.dataframe, aes(location, precipitations)) +
  geom_col(fill="white", color="blue") +
  coord_flip()