r 混合R片段

Posted 2021-05-24

# Remove missing values
y <- x[!is.na(x)]

# Replace NA with 0
d[is.na(d)] <- 0

# Replace 0 with NA
dat[dat==0] <- NA

# Rename column by name: change "beta" to "two"
names(d)[names(d)=="beta"] <- "two"

# Reorder factors
mydf$task <- factor(mydf$task, levels = c("up", "down", "left", "right", "front", "back"))

# Convert all data frame columns from factor to numeric
indx <- sapply(breast, is.factor)
breast[indx] <- lapply(breast[indx], function(x) as.numeric(as.character(x)))

# Bioconductor install/update
source("https://bioconductor.org/biocLite.R")
biocLite()

# Bioconductor upgrage
biocLite("BiocUpgrade")

# List all loaded packages
(.packages())

# Get column classes
lapply(foo, class)

# Factor to columns
df <- data.frame(cbind(1:10, 2:11, 1:3))
colnames(df) <- c("ID","DATE","SECTOR")
df <- data.frame(df, value=TRUE)

reshape(df, idvar=c("ID","DATE"), timevar="SECTOR", direction="wide")