Python is my all time favorite programming language. I use it all the time. It is simple, readable and easy to get started, something which I picked up four years ago when I went through the first offering of Interactive Programming with Python course on Coursera. Python’s simplicity and appeal has continued to grow over time, supported by a wide community and a rich environment of packages.
Today, however, I am not going to talk about Python. This post shares some of my experiences with R programming language and how it helped me postpone my struggle with visualizations in Python (a short back-story at the end).
> data <- read.table(‘data.txt’, header=TRUE) # TSV file > names(d) # fetch columns  "PassengerId" "Survived" "Pclass" "Name" "Sex"  "Age" "SibSp" "Parch" "Ticket" "Fare"  "Cabin" "Embarked"
Looking at the columns, it would be interesting to explore the age distribution of the people, along with their survivor, class and sex distribution. Let’s take a look.
> boxplot(Age ~ as.factor(Pclass), data=data) > title(xlab='Passenger class', ylab='Passenger age', + main='Boxplot: Passenger Age vs Class') > abline(h=median(data$Age, na.rm = TRUE), col='red')
Boxplot is a good way to visualize the age distribution across passenger classes.
The histogram below is generated in a single line.
> hist(data$Age, xlab='Age', main='Histogram of Age', col='brown', + breaks=50, border='white')
While it may take a bit of time to find out which functions to use (most of the times they have intuitive names), it becomes super easy to generate complex figures by simply composing simple ones.
Also, when handling a large amount of data, plotting with a few tweaked parameters can save quite a bit of processing time. A few of these suggestions and helpful functions are compiled below with relevant examples.
ifelse()- inline conditional
.. col <- ifelse(data$Survived == 1, 'red', 'gray'))
boxplot()- boxplot, demo above
.. boxplot(Age ~ as.factor(Pclass), data=data)
split()- split dataframe, useful with
.. df <- split(data$Age, f='Pclass')
hsv()- generate colors
.. cols <- hsv((2/3)*as.integer(data$Pclass)/25, 1, 7/8)
points()- draw points on a graph
.. points(data$Age, col=ifelse(data$SibSp > 0, 'green', NA))
abline()- draw a line on the graph given by
.. abline(h=median(data$Age), na.rm=TRUE)
layout()- set graph properties, split the graph
.. layout(c(2,1)) # split the graph in 2 rows
title()- set graph title, axes labels
text()- write text anywhere on the graph
legend()- write graph legend
qqplot()- a quantile-quantile plot
hist()- plot a histogram
plotcommands to use dots in place of big circles. This saves a lot of time especially if there are many points. In case points are too small to see, use
cex=2or higher to increase the point size. Use
par(pch='.')to set the behavior for all plots.
> plots(data$Age, pch='.', cex=2)
data.tablelibrary to load very large tables quickly. This could be upto 10x faster than default
read.tablefunction of R. Read more here.
This post is an outgrowth of my struggle with generating exploratory
visualizations in Python. While using
is a natural and super effective combination, visualization with
or its alternatives like
seaborn is equally confusing. The documentation is
too verbose and often there are many ways to do the same thing. While R is not
without its own flaws, I was awestruck with the simplicity and ease of use in
getting started with it (at least for the purpose I was interested in). All
thanks to senior researcher Max.
For the curious, I was analyzing several gigabytes of derivative data obtained
from whole-genomes sequences of thousands of humans. Using the scipy stack
above, combined with the power of
multiprocessing module, I could spawn 16
processes on the multi-core cluster and reduced the processing time from 35 min
to 2 min. A big win!
However, I do hope to eventually return to Python stack and figure out things with a cool head. Who knows if that’s going to be my next blog post.