File:Hexenanklagen Herzogtum Westfalen 1508–1732.svg

# set working directory
setwd("/path/to/your/directory/") # <- the path to the folder that contains data.csv
# read the data
dat <- read.csv("data.csv")

# The default settings for labels and tick marks are not sufficient for this data set,
# so we have to work arond that. This vector contains the years we want to be displayed below 
# the x-axis
labyears <- c(1508, 1523, 1530, 1564, 1574, 1579, 1590, 1595, 1600, 1606,
              1611, 1617, 1626, 1630, 1637, 1641, 1652, 1660, 1670, 1676,
              1681, 1685, 1691, 1695, 1701, 1707, 1712, 1728, 1732)

# open an SVG-device
svg(filename="Hexenanklagen Herzogtum Westfalen 1508–1732.svg", width=14, height=7, pointsize=12)
  # set the margins around the plotting area (bottom, left, top, right)
  par(mar=c(6, 5, 1, 1))
  # set up the basic plot
  plot(Angeklagte ~ Jahr, data=dat, bty="l",
    type="n",       # don't plot any data yet
    xaxt="n",       # don't display any labels or ticks for the x-axis 
    cex.axis=1.8,   # magnify axis by 1.8
    cex.lab=1.8,    # magnify labels by 1.8
    xlab="",        # no title for the x-axis yet
    ylab="Anklagen" # title for the y-axis
    )
    
  # add basic ticks for every year in the data set
  axis(1,         # x-axis
    at=dat$Jahr,  # position of ticks
    labels=FALSE  # still no labels
  )

  # add selected labels for the x-axis
  axis(1,         # x-axis
    at=labyears,  # only the years we defined earlier
    las=3,        # vertical labels
    cex.axis=1.5, # size of the label text
    lwd.ticks=1.8 # add bigger ticks for these labels
   )
  # add a title for the x-axis
  title(xlab="Jahr",
    line=5,       # 5 "lines" below the axis
    cex.lab=1.8   # size of the title text
  )

  # add a dashed line at "zero"
  abline(a=0, b=0, lty=3)
  
  # plot the lines
  lines(Angeklagte ~ Jahr, data=dat, lwd=1.8, col="blue")
  # plot the points
  points(Angeklagte ~ Jahr, data=dat, pch=20, col="blue", cex=1.5)

# close the device
dev.off()