`Figure_1 <- ggplot(data=data, aes(x=Year, y=Numbers2, fill=Level, label = Numbers2)) +
geom_col()
 tikz('Figure_1.tex', width = 3.5, height=3)`

Measuring dimensions of: Year
Running command: "C:UsersAppDataLocalProgramsMIKTEX~1.9miktexbinx64pdflatex.exe" -interaction=batchmode -halt-on-error -output-directory "C:UsersAppDataLocalTempRtmpG0DaAPtikzDevice1bac4bdc680b" "C:/Users/AppData/Local/Temp/RtmpG0DaAP/tikzDevice1bac4bdc680b/tikzStringWidthCalc.tex"
Measuring dimensions of: char78
Running command: "C:UsersAppDataLocalProgramsMIKTEX~1.9miktexbinx64pdflatex.exe" -interaction=batchmode -halt-on-error -output-directory "C:UsersAppDataLocalTempRtmpG0DaAPtikzDevice1bac3435464e" "C:/Users/AppData/Local/Temp/RtmpG0DaAP/tikzDevice1bac3435464e/tikzStringWidthCalc.tex".....