R语言逻辑运算符 #

TRUE & TRUE
TRUE & FALSE
FALSE & FALSE

c(TRUE, TRUE, FALSE) & c(TRUE, FALSE, FALSE)

TRUE && TRUE
TRUE && FALSE
FALSE && TRUE
FALSE && FALSE

c(TRUE, FALSE) && c(TRUE, TRUE)

TRUE | FALSE
FALSE | FALSE
TRUE | TRUE

c(TRUE, FALSE, FALSE) | c(FALSE, TRUE, FALSE)

TRUE || FALSE
FALSE || TRUE
FALSE || FALSE

c(TRUE, FALSE) || c(FALSE, TRUE)

!TRUE
!FALSE

!c(TRUE, FALSE, TRUE)

x <- c(TRUE, FALSE, TRUE)
y <- c(FALSE, TRUE, FALSE)

x & y
x && y

x <- c(FALSE, TRUE, TRUE)
y <- c(TRUE, FALSE, FALSE)

x && y

x <- c(TRUE, FALSE, TRUE)
y <- c(FALSE, TRUE, FALSE)

x | y
x || y

x <- c(TRUE, FALSE, FALSE)
y <- c(FALSE, TRUE, TRUE)

x || y

if (TRUE && FALSE) {
  print("条件为真")
}

x <- c(10, 20, 30)
if (all(x > 5) && any(x > 25)) {
  print("所有元素大于5，且存在元素大于25")
}

all(c(TRUE, TRUE, TRUE))
all(c(TRUE, FALSE, TRUE))
all(c(FALSE, FALSE, FALSE))

x <- c(5, 10, 15)
all(x > 0)
all(x > 10)

any(c(TRUE, FALSE, FALSE))
any(c(FALSE, FALSE, FALSE))
any(c(TRUE, TRUE, TRUE))

x <- c(5, 10, 15)
any(x > 10)
any(x > 20)

x <- c(10, 20, 30, 40, 50)

which(x > 25)
which(x == 30)
which(x != 20)

x <- c(10, 20, 30, 40, 50)

ifelse(x > 25, "大", "小")

scores <- c(85, 60, 45, 90, 55)
ifelse(scores >= 60, "及格", "不及格")

TRUE & NA
FALSE & NA
TRUE | NA
FALSE | NA
!NA

x <- c(TRUE, NA, FALSE)

all(x)
all(x, na.rm = TRUE)

any(x)
any(x, na.rm = TRUE)

x <- c(TRUE, NA, FALSE)

is.na(x)
!is.na(x)
x[!is.na(x)]

TRUE | FALSE & FALSE
(TRUE | FALSE) & FALSE

!TRUE & FALSE
!(TRUE & FALSE)

TRUE && FALSE || TRUE
TRUE && (FALSE || TRUE)

x <- 25

x > 20 & x < 30
x >= 20 & x <= 30 & x != 25

x <- 15

x < 10 | x > 20
x == 10 | x == 15 | x == 20

x <- 25

(x > 20 & x < 30) | x == 100
(x < 10 | x > 20) & x != 25

x <- c(10, 20, 30, 40, 50)

!(x > 30)
x[!(x > 30)]

x <- c(10, 20, 30, 40, 50)

x[x > 25]
x[x != 30]
x[x >= 20 & x <= 40]

df <- data.frame(
  name = c("张三", "李四", "王五"),
  age = c(25, 30, 22),
  score = c(85, 90, 78)
)

df[df$age > 24, ]
df[df$score >= 85, ]
df[df$age > 24 & df$score >= 85, ]

validate_data <- function(age, score) {
  valid_age <- age > 0 & age < 120
  valid_score <- score >= 0 & score <= 100
  
  if (all(valid_age) && all(valid_score)) {
    return(TRUE)
  } else {
    return(FALSE)
  }
}

validate_data(c(25, 30), c(85, 90))
validate_data(c(-5, 30), c(85, 90))

classify <- function(x) {
  ifelse(x < 0, "负数",
         ifelse(x == 0, "零", "正数"))
}

classify(c(-5, 0, 10))

data <- data.frame(
  name = c("张三", "李四", "王五", "赵六"),
  age = c(25, 30, 22, 35),
  score = c(85, 90, 78, 88)
)

result <- data[
  data$age >= 25 & 
  data$age <= 30 & 
  data$score >= 80, 
]
print(result)

detect_outliers <- function(x) {
  q <- quantile(x, c(0.25, 0.75))
  iqr <- q[2] - q[1]
  lower <- q[1] - 1.5 * iqr
  upper <- q[2] + 1.5 * iqr
  
  x < lower | x > upper
}

x <- c(1, 2, 3, 4, 5, 100)
detect_outliers(x)