library(grDevices)
pdf(width =10, height = 6)
par(mfrow = c(1,2), mai = c(0, 0, 0, 0))
x = c(10,20,3,4,15,32,11,12,33,5,10,2,33,22,11,22,7)
y = c(3,1,3,4,5,6,7,8,9,23,15,18,45,32,43,65,19)
par(fig=c(0.05,0.5,0,1))
hist(x,ylab=expression(F[i]),xlab="Classes",main="")
par(fig=c(0.55,1,0,1), new=TRUE)
plot(x,y)
dev.off()