Regular text:

library(ggplot2)
mydata <- read.csv("test.csv", stringsAsFactors=FALSE) 
ggplot(data = mydata,
       aes(x = Year, y = Title)) +
  geom_line()
## geom_path: Each group consist of only one observation. Do you need to adjust the group aesthetic?

plot of chunk unnamed-chunk-1

ggplot(data= mydata,
       aes(x=Type))+ geom_bar()

plot of chunk unnamed-chunk-2

ggplot(data= mydata,
       aes(x=Format))+ geom_bar()

plot of chunk unnamed-chunk-3

ggplot(data= sarna,
       aes(x=year, y= estimate.high))+ geom_line()

plot of chunk unnamed-chunk-4

ggplot(data= sarna,
       aes(x=year, y= estimate.high))+ geom_bar(stat="identity")

plot of chunk unnamed-chunk-5 yes

ggplot(data = mydata,
       aes(x = Year, y = Format)) +
  geom_line()

plot of chunk unnamed-chunk-6

  ggplot(data = mydata,
       aes(x = Origin, y = Title)) +
  geom_line()
## geom_path: Each group consist of only one observation. Do you need to adjust the group aesthetic?

plot of chunk unnamed-chunk-6

# ggplot(data=mydata, aes(x=Year, y=Title, fill=time)) + geom_bar(colour="black", stat="identity")
# Add title, narrower bars, gray fill, and change axis labels

ggplot(data=mydata, aes(x=Title, y=Year, fill=Title)) + 
    geom_bar(colour="black", fill="#DD8888", width=.7, stat="identity") + 
    guides(fill=FALSE) +
    xlab("Title of Game") + ylab("Year of Release") +
    ggtitle("Video Game Releases")

plot of chunk unnamed-chunk-8

ggplot(data=mydata, aes(x=Title, y=Year)) + 
    geom_bar(colour="black", fill="#DD8888", width=.7, stat="identity") + 
    guides(fill=FALSE) +
    xlab("Title of Game") + ylab("Year of Release") +
    ggtitle("Video Game Releases")

plot of chunk unnamed-chunk-9

ggplot(data=mydata, aes(x=Title, y=Year, group=Type)) + geom_line() + geom_point()

plot of chunk unnamed-chunk-10

ggplot(data = mydata, aes(x = Year)) + geom_bar()
## stat_bin: binwidth defaulted to range/30. Use 'binwidth = x' to adjust this.
## Warning: position_stack requires constant width: output may be incorrect

plot of chunk unnamed-chunk-11

ggplot(data = mydata, aes(x = Year)) + geom_bar()
## stat_bin: binwidth defaulted to range/30. Use 'binwidth = x' to adjust this.
## Warning: position_stack requires constant width: output may be incorrect

plot of chunk unnamed-chunk-11

ggplot(data = mydata,
       aes(x = Year, y = Format, color = Title)) +
  geom_line()
## geom_path: Each group consist of only one observation. Do you need to adjust the group aesthetic?

plot of chunk unnamed-chunk-11

More regular text.