en.wikipedia.org

File:European Output of Books 500–1800.png - Wikipedia

  • ️Thu Dec 15 2011
\documentclass[border=5mm]{standalone}
\usepackage{pgfplots}
\usepackage[super]{nth}
\usepackage{amsmath}
\pgfplotstableread{
Siglos Manuscritos Libros impresos
6       13552           nan
7       10639           nan
8       43702           nan
9       201742  nan
10      135637  nan
11      212030  nan
12      768721  nan
13      1761951 nan
14      2746951 nan
%15   4999161 12589000
16       nan            217444000
17      nan             531941000
18      nan             983874000
}\datatable
\definecolor{RYB1}{RGB}{128, 177, 211}
\definecolor{RYB2}{RGB}{253, 180, 98}
\begin{document}
\begin{tikzpicture}
\begin{semilogyaxis}[
        axis on top=false, grid=both, xmajorgrids=false, every minor grid/.style=gray!20,
        axis lines*=left,
        width=12cm, height=8cm, enlarge x limits=0.05,
        ymin=1000, ymax=1e9,ytick={1000,1e4, 1e5, 1e6, 1e7, 1e8, 1e9},
        yticklabels={1000, 10\,000, 100\,000, 1\,000\,000, 10\,000\,000, 100\,000\,000, 1\,000\,000\,000},
        enlarge y limits=false,
        ybar=-10pt, xtick={6,...,18}, xticklabel={\pgfmathparse{int(\tick)}\nth{\pgfmathresult}},
        xlabel=Siglos, xlabel style={yshift=-1ex},ylabel=Número\\ de Copias,
        ylabel style={rotate=-90, align=left, anchor=east, xshift=-4ex, name=ylabel},
        after end axis/.code={
                \node [
                        font=\large\bfseries,
                        text=RYB2!60!black, fill=white, fill opacity=0.85, text opacity=1,
                        anchor=center, inner xsep=1pt]  at (axis cs:11,5e3) {Manuscritos};
                \node [
                        font=\large\bfseries, inner xsep=1pt,
                        text=RYB1!60!black,
                        fill=white, fill opacity=0.85, text opacity=1,
                        align=center, anchor=center]  at (axis cs:16.6,5e3) {Libros impresos};\
        },
        title={Producción Europea occidental de libros entre los años 500 y 1800$^{\text{\tiny{*}}}$},
        title style={font=\large\bfseries, align=center}
        ]
        \addplot +[fill=RYB1, draw=RYB1!50!black] table [y=Books] {\datatable};
        \addplot +[fill=RYB1, draw=RYB1!50!black, /pgf/bar shift=2.5pt] coordinates {(15,12589000)};
        \addplot +[fill=RYB2, draw=RYB2!50!black] table {\datatable};
        \addplot +[fill=RYB2, draw=RYB2!50!black, /pgf/bar shift=-2.5pt] coordinates {(15,4999161)};
        \draw (rel axis cs:0,0) -- (rel axis cs:1,0);                 
\end{semilogyaxis}
\node (annotation) at (current axis.below south west) [inner xsep=0pt, anchor=north west, align=left, font=\tiny] {$^*$without Southeast Europe (Byzantine, later Ottoman realm) and Russia};
\end{tikzpicture}
\end{document}