R - 实用命令

#R - 实用命令

1. Print strings and numbers in one line

print(paste("Original data has", 25, "points"))

2. Change level of a variable

data <- dat
levels(data$LONGITUDE)[1] <- "NA"

3. Select rows with variable not at some specific level

data <- dat
data0 <- data[dat$LONGITUDE!=" \\N" & data$LATITUDE!=" \\N",]

4. Process bar

progress.bar <- create_progress_bar("text")
progress.bar$init(k)
progress.bar$step()

5. Export JSON to txt

write.table(toJSON(data),file="~/Desktop/JSON.txt",quote=F,col.name=F,row.names=F)
cat(toJSON(data), file = '~/Desktop/json.txt', fill = FALSE, labels = NULL, append = FALSE)

6. Remove duplicated points

a <- c(3,3,3,1,1)
b <- c(2,3,2,2,2)
c <- c(5,6,7,8,9)
abc <- cbind(a,b,c)
abc <- as.data.frame(abc)
abc
index <- duplicated(abc$a, fromLast = TRUE) & duplicated(abc$b, fromLast = TRUE) 
#default fromLast F
def <- abc[!index,]
def