abundancecurves.R

model10 — Nov 14, 2013, 2:03 PM

install.packages("knitr")

Installing package into 'C:/Users/model10/Documents/R/win-library/3.0'
(as 'lib' is unspecified)

Error: trying to use CRAN without setting a mirror

require (knitr)
env <- read.csv("rs_env_plot 2.csv")
install.packages("ggplot2")

Installing package into 'C:/Users/model10/Documents/R/win-library/3.0'
(as 'lib' is unspecified)

Error: trying to use CRAN without setting a mirror

require (ggplot2)

Loading required package: ggplot2


Slog <- read.csv("Site_log 2.csv", header=TRUE, na.strings=NA)

ggplot(Slog, aes(x=Slog$Man1Rank, y=Slog$Man1Log)) + 
  ylab("Log10(Abundance)") + 
  xlab("Abundance rank") + geom_histogram(stat="identity") +
  annotate("text", label = "Slope = -0.2288418", x = 7.5, y = 2)

Warning: Removed 11 rows containing missing values (position_stack).

plot of chunk unnamed-chunk-1


ggplot(Slog, aes(x=Slog$KauRank, y=Slog$KauLog)) + 
  ylab("Log10(Abundance)") + 
  xlab("Abundance rank") + geom_histogram(stat="identity") +
  annotate("text", label = "Slope = -0.3086609", x = 5, y = 1.5)

Warning: Removed 14 rows containing missing values (position_stack).

plot of chunk unnamed-chunk-1


ggplot(Slog, aes(x=Slog$Man2Rank, y=Slog$Man2Log)) + 
  ylab("Log10(Abundance)") + 
  xlab("Abundance rank") + geom_histogram(stat="identity") +
  annotate("text", label = "Slope = -0.1485190", x = 10, y = 1.7)

Warning: Removed 7 rows containing missing values (position_stack).

plot of chunk unnamed-chunk-1


ggplot(Slog, aes(x=Slog$HonRank, y=Slog$HonLog)) +
  ylab("Log10(Abundance)") + 
  xlab("Abundance rank") + geom_histogram(stat="identity")+
  annotate("text", label = "Slope = -0.1455042", x = 8, y = 1.8)

Warning: Removed 9 rows containing missing values (position_stack).

plot of chunk unnamed-chunk-1


ggplot(Slog, aes(x=Slog$KalRank, y=Slog$KalLog)) + 
  ylab("Log10(Abundance)") + 
  xlab("Abundance rank") + geom_histogram(stat="identity") +
  annotate("text", label = "Slope = -0.1243887", x = 8, y = 2.2)

Warning: Removed 8 rows containing missing values (position_stack).

plot of chunk unnamed-chunk-1


ggplot(Slog, aes(x=Slog$KamRank, y=Slog$KamLog)) +
  ylab("Log10(Abundance)") + 
  xlab("Abundance rank") + geom_histogram(stat="identity") +
  annotate("text", label = "Slope = -0.1889546", x = 5, y = 1.2)

Warning: Removed 14 rows containing missing values (position_stack).

plot of chunk unnamed-chunk-1


ggplot(Slog, aes(x=Slog$Lan1Rank, y=Slog$Lan1Log)) +
  ylab("Log10(Abundance)") + 
  xlab("Abundance rank") + geom_histogram(stat="identity") +
  annotate("text", label = "Slope = -0.3752949", x = 3.5, y = 1.8)

Warning: Removed 17 rows containing missing values (position_stack).

plot of chunk unnamed-chunk-1


ggplot(Slog, aes(x=Slog$Lan2Rank, y=Slog$Lan2Log)) +
  ylab("Log10(Abundance)") + 
  xlab("Abundance rank") + geom_histogram(stat="identity") +
  annotate("text", label = "Slope = -0.2114740", x = 6, y = 1.6)

Warning: Removed 11 rows containing missing values (position_stack).

plot of chunk unnamed-chunk-1


ggplot(Slog, aes(x=Slog$KaneRank, y=Slog$KaneLog)) +
  ylab("Log10(Abundance)") + 
  xlab("Abundance rank") + geom_histogram(stat="identity") +
  annotate("text", label = "Slope = -0.4543969", x = 4.5, y = 1.6)

Warning: Removed 16 rows containing missing values (position_stack).

plot of chunk unnamed-chunk-1


ggplot(Slog, aes(x=Slog$KannRank, y=Slog$KannLog)) +
  ylab("Log10(Abundance)") + 
  xlab("Abundance rank") + geom_histogram(stat="identity") +
  annotate("text", label = "Slope = -0.1727259", x = 6, y = 1)

Warning: Removed 14 rows containing missing values (position_stack).

plot of chunk unnamed-chunk-1


ggplot(Slog, aes(x=Slog$WaiRank, y=Slog$WaiLog)) +
  ylab("Log10(Abundance)") + 
  xlab("Abundance rank") + geom_histogram(stat="identity") +
  annotate("text", label = "Slope = -0.2093021", x = 7.5, y = 1.6)

Warning: Removed 11 rows containing missing values (position_stack).

plot of chunk unnamed-chunk-1


ggplot(Slog, aes(x=Slog$NualRank, y=Slog$NualLog)) +
  ylab("Log10(Abundance)") + 
  xlab("Abundance rank") + geom_histogram(stat="identity") +
  annotate("text", label = "Slope = -0.1620015", x = 10, y = 1.8)

Warning: Removed 8 rows containing missing values (position_stack).

plot of chunk unnamed-chunk-1


ggplot(Slog, aes(x=Slog$AwaaRank, y=Slog$AwaaLog)) +
  ylab("Log10(Abundance)") + 
  xlab("Abundance rank") + geom_histogram(stat="identity") +
  annotate("text", label = "Slope = -0.0916270", x = 18, y = 1.5)

plot of chunk unnamed-chunk-1


ggplot(Slog, aes(x=Slog$MilRank, y=Slog$MilLog)) +
  ylab("Log10(Abundance)") + 
  xlab("Abundance rank") +  geom_histogram(stat="identity") +
  annotate("text", label = "Slope = -0.2300050", x = 7.5, y = 2)

Warning: Removed 12 rows containing missing values (position_stack).

plot of chunk unnamed-chunk-1