Plain R without Shiny

gistfile1.r

# Now we create the barchart:
barplot( height, ylim = c(0, max_bar), # height x axis, length y axis
         main = "Zu- und Fortzüge nach Berlin", # headline
         ylab = "Anzahl in 1000", # y axis label
         names.arg = years, cex.names = 0.5, # year under bar, slightly smaller
         beside = TRUE, # sideways
         col = c("#990033", "#009933") # assign colors
        )

# We're adding a shiny legend, placed topleft
legend( "topleft", 
        c("Zuzüge", "Fortzüge"), 
        cex = 0.8, 
        bty = "n", 
        fill = c("#990033", "#009933")
      )