R Snippets

piechart.R

toxin_counts = c(2273,2306,2235,19,183,61,210)
taxa = c("Gastropods","Snakes","Arachnids","Mammals","Jellyfish","Amphibians","other")
df = data.frame(toxin_counts,taxa)
pie(df$toxin_counts,labels=df$taxa)

sortdataframe.R

# Create example data
abc = c("a","c","b")
one23 = c(1,3,2)
df = data.frame(abc,one23,stringsAsFactors=FALSE)

# Generate a sort index based on the abc column
df.sortidx = sort(df$abc,index.return=TRUE)$ix

# Recorder the original data frame based on the sort index
sorteddf = df[df.sortidx,]

usewhich.R

# Create example data
abc = c("a","c","b")
one23 = c(1,3,2)
df = data.frame(abc,one23,stringsAsFactors=FALSE)

# Select data for which the numeric column (one23) is greater than 1

df[which(df$one23>1),]