\documentclass{article}
\nonstopmode
\usepackage{tikz}
\usepackage[active,tightpage,psfixbb]{preview}
\PreviewEnvironment{pgfpicture}
\setlength\PreviewBorder{0pt}
\newcommand{\SweaveOpts}[1]{}
\newcommand{\SweaveInput}[1]{}
\newcommand{\Sexpr}[1]{}
\usepackage[utf8]{inputenc}
\usepackage[T1]{fontenc}
\usepackage{url}
\title{Knitr in CoCalc}
\author{Harald Schilly}
\begin{document}
\begin{tikzpicture}[x=1pt,y=1pt]
\definecolor{fillColor}{RGB}{255,255,255}
\path[use as bounding box,fill=fillColor,fill opacity=0.00] (0,0) rectangle (722.70,289.08);
\begin{scope}
\path[clip] ( 0.00, 0.00) rectangle (722.70,289.08);
\definecolor{drawColor}{RGB}{0,0,0}
\node[text=drawColor,anchor=base,inner sep=0pt, outer sep=0pt, scale= 1.20] at (373.35,260.34) {\bfseries Histogram of data};
\node[text=drawColor,anchor=base,inner sep=0pt, outer sep=0pt, scale= 1.00] at (373.35, 15.60) {data};
\node[text=drawColor,rotate= 90.00,anchor=base,inner sep=0pt, outer sep=0pt, scale= 1.00] at ( 10.80,150.54) {Frequency};
\end{scope}
\begin{scope}
\path[clip] ( 0.00, 0.00) rectangle (722.70,289.08);
\definecolor{drawColor}{RGB}{0,0,0}
\path[draw=drawColor,line width= 0.4pt,line join=round,line cap=round] (116.09, 61.20) -- (630.61, 61.20);
\path[draw=drawColor,line width= 0.4pt,line join=round,line cap=round] (116.09, 61.20) -- (116.09, 55.20);
\path[draw=drawColor,line width= 0.4pt,line join=round,line cap=round] (201.84, 61.20) -- (201.84, 55.20);
\path[draw=drawColor,line width= 0.4pt,line join=round,line cap=round] (287.60, 61.20) -- (287.60, 55.20);
\path[draw=drawColor,line width= 0.4pt,line join=round,line cap=round] (373.35, 61.20) -- (373.35, 55.20);
\path[draw=drawColor,line width= 0.4pt,line join=round,line cap=round] (459.10, 61.20) -- (459.10, 55.20);
\path[draw=drawColor,line width= 0.4pt,line join=round,line cap=round] (544.86, 61.20) -- (544.86, 55.20);
\path[draw=drawColor,line width= 0.4pt,line join=round,line cap=round] (630.61, 61.20) -- (630.61, 55.20);
\node[text=drawColor,anchor=base,inner sep=0pt, outer sep=0pt, scale= 1.00] at (116.09, 39.60) {-3};
\node[text=drawColor,anchor=base,inner sep=0pt, outer sep=0pt, scale= 1.00] at (201.84, 39.60) {-2};
\node[text=drawColor,anchor=base,inner sep=0pt, outer sep=0pt, scale= 1.00] at (287.60, 39.60) {-1};
\node[text=drawColor,anchor=base,inner sep=0pt, outer sep=0pt, scale= 1.00] at (373.35, 39.60) {0};
\node[text=drawColor,anchor=base,inner sep=0pt, outer sep=0pt, scale= 1.00] at (459.10, 39.60) {1};
\node[text=drawColor,anchor=base,inner sep=0pt, outer sep=0pt, scale= 1.00] at (544.86, 39.60) {2};
\node[text=drawColor,anchor=base,inner sep=0pt, outer sep=0pt, scale= 1.00] at (630.61, 39.60) {3};
\path[draw=drawColor,line width= 0.4pt,line join=round,line cap=round] ( 49.20, 67.82) -- ( 49.20,219.60);
\path[draw=drawColor,line width= 0.4pt,line join=round,line cap=round] ( 49.20, 67.82) -- ( 43.20, 67.82);
\path[draw=drawColor,line width= 0.4pt,line join=round,line cap=round] ( 49.20,105.76) -- ( 43.20,105.76);
\path[draw=drawColor,line width= 0.4pt,line join=round,line cap=round] ( 49.20,143.71) -- ( 43.20,143.71);
\path[draw=drawColor,line width= 0.4pt,line join=round,line cap=round] ( 49.20,181.66) -- ( 43.20,181.66);
\path[draw=drawColor,line width= 0.4pt,line join=round,line cap=round] ( 49.20,219.60) -- ( 43.20,219.60);
\node[text=drawColor,rotate= 90.00,anchor=base,inner sep=0pt, outer sep=0pt, scale= 1.00] at ( 34.80, 67.82) {0};
\node[text=drawColor,rotate= 90.00,anchor=base,inner sep=0pt, outer sep=0pt, scale= 1.00] at ( 34.80,105.76) {50};
\node[text=drawColor,rotate= 90.00,anchor=base,inner sep=0pt, outer sep=0pt, scale= 1.00] at ( 34.80,143.71) {100};
\node[text=drawColor,rotate= 90.00,anchor=base,inner sep=0pt, outer sep=0pt, scale= 1.00] at ( 34.80,181.66) {150};
\node[text=drawColor,rotate= 90.00,anchor=base,inner sep=0pt, outer sep=0pt, scale= 1.00] at ( 34.80,219.60) {200};
\end{scope}
\begin{scope}
\path[clip] ( 49.20, 61.20) rectangle (697.50,239.88);
\definecolor{drawColor}{RGB}{0,0,0}
\definecolor{fillColor}{RGB}{211,211,211}
\path[draw=drawColor,line width= 0.4pt,line join=round,line cap=round,fill=fillColor] ( 73.21, 67.82) rectangle (116.09, 69.34);
\path[draw=drawColor,line width= 0.4pt,line join=round,line cap=round,fill=fillColor] (116.09, 67.82) rectangle (158.97, 68.58);
\path[draw=drawColor,line width= 0.4pt,line join=round,line cap=round,fill=fillColor] (158.97, 67.82) rectangle (201.84, 78.44);
\path[draw=drawColor,line width= 0.4pt,line join=round,line cap=round,fill=fillColor] (201.84, 67.82) rectangle (244.72, 92.86);
\path[draw=drawColor,line width= 0.4pt,line join=round,line cap=round,fill=fillColor] (244.72, 67.82) rectangle (287.60,138.40);
\path[draw=drawColor,line width= 0.4pt,line join=round,line cap=round,fill=fillColor] (287.60, 67.82) rectangle (330.47,169.51);
\path[draw=drawColor,line width= 0.4pt,line join=round,line cap=round,fill=fillColor] (330.47, 67.82) rectangle (373.35,209.74);
\path[draw=drawColor,line width= 0.4pt,line join=round,line cap=round,fill=fillColor] (373.35, 67.82) rectangle (416.23,233.26);
\path[draw=drawColor,line width= 0.4pt,line join=round,line cap=round,fill=fillColor] (416.23, 67.82) rectangle (459.10,184.69);
\path[draw=drawColor,line width= 0.4pt,line join=round,line cap=round,fill=fillColor] (459.10, 67.82) rectangle (501.98,147.50);
\path[draw=drawColor,line width= 0.4pt,line join=round,line cap=round,fill=fillColor] (501.98, 67.82) rectangle (544.86,100.45);
\path[draw=drawColor,line width= 0.4pt,line join=round,line cap=round,fill=fillColor] (544.86, 67.82) rectangle (587.73, 76.92);
\path[draw=drawColor,line width= 0.4pt,line join=round,line cap=round,fill=fillColor] (587.73, 67.82) rectangle (630.61, 70.09);
\path[draw=drawColor,line width= 0.4pt,line join=round,line cap=round,fill=fillColor] (630.61, 67.82) rectangle (673.49, 68.58);
\end{scope}
\end{tikzpicture}
\end{document}