#survey_publications_Q38-42.R #### Q38. NUmber of publications 2007-2011. #### numpubs <- data_clean[,151] #### Q39. Time to paper submission. #### timeToSubmit <- data_clean[,152] #### Q40. Time for paper to be published after submission. #### timeToPublish <- data_clean[,153] #### Q41. Journals published in 2007-2011. #### journals <- data_clean[,c(1, 154:176)] names(journals) <- c("RespondentID", "AmNat", "AREES", "ConsBio", "EcoApps", "EcoInfo","EcoMonos","Ecology","EcoLetts","Evolution", "Frontiers","FunctEco","GCB","GEB","JAppEco","JEcology", "MolEco","Oecol","Oikos","PerspPlantEco","ProcRoyalB", "TREE","UrbanEco", "WildlifeMonos") journals_melt <- melt(journals, id.vars = "RespondentID") journals_melt <- journals_melt[which(journals_melt$value != ""),] journals_melt2 <- unique(ddply(journals_melt, c("variable","value"), function(x) data.frame(x, count=nrow(x)))) journals_melt2 <- journals_melt2[,2:4] journals_melt3 <- unique(journals_melt2) #### Q42. Can publish higher impact papers if... #### impact <- data_clean[,c(1,178:183)] names(impact) <- c("RespondentID", "CollectMoreData","PubDataOnline", "InstallMoreSensors","AfflilWNetworks","MoreAccessData", "AccessSciExpertise") impact_melt <- melt(impact, id.vars = "RespondentID") impact_melt <- impact_melt[which(impact_melt$value != ""),] impact_melt2 <- unique(ddply(impact_melt, c("variable","value"), function(x) data.frame(x, count=nrow(x)))) impact_melt2 <- impact_melt2[,2:4] impact_melt3 <- unique(impact_melt2)