该å¤å¿åæä¾äºä½¿ç¨ R è¯è¨ç示ä¾ï¼æ¶µç R è¯è¨åºç¡ç¥è¯ãæ§å¶æµãç±»åãç»æ/ç±»ãè¿ç®ç¬¦ã彿°æ¹æ³ç
访é®å¸®å©æä»¶
?mean
# è·åç¹å®åè½ç帮å©
help.search('weighted mean')
# å¨å¸®å©æä»¶ä¸æç´¢åè¯æçè¯
help(package = 'dplyr')
# æ¥æ¾è½¯ä»¶å
ç帮å©ã
æå ³å¯¹è±¡çæ´å¤ä¿¡æ¯
str(iris)
# è·åå¯¹è±¡ç»æçæè¦
class(iris)
# æ¥æ¾å¯¹è±¡æå±çç±»
install.packages('dplyr')
# ä» CRAN ä¸è½½å¹¶å®è£
软件å
install.packages(âBiocManagerâ)
library(BiocManager)
BiocManager::install("dplyr")
# 使ç¨BioconductorçBiocManagerå
ä¸è½½å¹¶å®è£
软件å
devtools::install_github("clusterProfiler")
# ç´æ¥ä»githubä¸ä¸è½½å¹¶å®è£
软件å
library(dplyr)
# å°å
å è½½å°ä¼è¯ä¸ï¼ä½¿ææå
¶åè½å¯ä¾ä½¿ç¨
dplyr::select
# 使ç¨å
ä¸çç¹å®å½æ°
data(iris)
# å°å
ç½®æ°æ®éå è½½å°ç¯å¢ä¸ã
æ¥æ¾å½åå·¥ä½ç®å½ï¼å ¶ä¸æ¾å°è¾å ¥å¹¶åéè¾åºï¼
getwd()
æ´æ¹å½åå·¥ä½ç®å½
setwd(âC://file/pathâ)
ä½¿ç¨ RStudio ä¸çé¡¹ç®æ¥è®¾ç½®å·¥ä½ç®å½å°æ¨æ£å¨ä½¿ç¨çæä»¶å¤¹
x <- 10 # 使ç¨ç®å¤´èµå¼
y = 20 # æè
ç´æ¥ä½¿ç¨çå·èµå¼
numeric_var <- 3.14 # æ°å¼å
character_var <- "hello" # å符串
logical_var <- TRUE # é»è¾å
# åé
numeric_vector <- c(1, 2, 3, 4)
character_vector <- c("apple", "orange", "banana")
# å表
my_list <- list(name = "John", age = 30, city = "New York")
åéåæä½
# å建åé
numbers <- c(1, 2, 3, 4, 5)
# 计ç®åéçå
sum_result <- sum(numbers)
# 计ç®åéçå¹³åå¼
mean_result <- mean(numbers)
my_df <- data.frame(name = c("John", "Alice"), age = c(30, 25))
# åå»ºæ°æ®æ¡
student_data <- data.frame(
name = c("John", "Alice", "Bob"),
age = c(25, 23, 22),
grade = c("A", "B", "C")
)
# æ¾ç¤ºæ°æ®æ¡
print(student_data)
# å®ä¹å½æ°
add_numbers <- function(a, b) {
result <- a + b
return(result)
}
# è°ç¨å½æ°
sum_result <- add_numbers(10, 5)
if (x > 0) {
print("Positive")
} else {
print("Non-positive")
}
for (i in 1:5) {
print(i)
}
counter <- 1
while (counter <= 5) {
print(counter)
counter <- counter + 1
}
# è¯»åæ°æ®
my_data <- read.csv("data.csv")
# è¾åºæ°æ®
write.csv(my_data, "output.csv")
# æ¸
空ææåé
rm(list = ls())
# éåº R
q()
plot(x, y)
hist(data)
plot(x, y, type = "l")
x <- c(1, 2, 3, 4, 5)
y <- c(2, 4, 5, 6, 7)
plot(x, y, main = "Scatter Plot", xlab = "X-axis", ylab = "Y-axis")
data <- c(1, 1, 2, 2, 2, 3, 3, 3, 3, 4, 4, 5)
hist(data, main = "Histogram", xlab = "Value", col = "lightblue")
x <- c(1, 2, 3, 4, 5)
y <- c(2, 4, 5, 6, 7)
plot(x, y, type = "l", main = "Line Plot", xlab = "X-axis", ylab = "Y-axis")
| :- | - | - |
|---|---|---|
c(2, 4, 6) | 2 4 6 | å°å ç´ è¿æ¥æåé |
2:6 | 2 3 4 5 6 | æ´æ°åºå |
seq(2, 3, by=0.5) | 2.0 2.5 3.0 | 夿çåºå |
rep(1:2, times=3) | 1 2 1 2 1 2 | éå¤åé |
rep(1:2, each=3) | 1 1 1 2 2 2 | éå¤åéçå ç´ |
| :- | - |
|---|---|
x[4] | 第å个å ç´ |
x[-4] | é¤äºç¬¬å个ä¹å¤çææ |
x[2:4] | å ç´ äºå°å |
x[-(2:4)] | é¤äºå°åä¹å¤çææå ç´ |
x[c(1, 5)] | å ç´ ä¸åå ç´ äº |
| :- | - |
|---|---|
x[x == 10] | çäº 10 çå ç´ |
x[x < 0] | ææå ç´ å°äºé¶ |
x[x %in% c(1, 2, 5)] | éå 1, 2, 5 ä¸çå ç´ |
| :- | - |
|---|---|
x['apple'] | å为âappleâçå ç´ ã |
| :- | - |
|---|---|
sort(x) | è¿åæåºåç x |
rev(x) | è¿å x çå转 |
table(x) | æ¥çå¼çè®¡æ° |
unique(x) | æ¥çå¯ä¸å¼ |