如何在r中按数据类型忽略列表中的元素？

my_list <- list("string", 123, TRUE, 3.14, c(1, 2, 3), matrix(1:9, nrow = 3))

for (element in my_list) {
  if (is.character(element)) {
    # 处理字符类型的元素
    # 例如，可以打印元素的值
    print(element)
  } else if (is.numeric(element)) {
    # 处理数值类型的元素
    # 例如，可以计算元素的平方
    squared <- element^2
    print(squared)
  } else if (is.logical(element)) {
    # 处理逻辑类型的元素
    # 例如，可以打印元素的否定值
    negation <- !element
    print(negation)
  } else {
    # 处理其他数据类型的元素
    # 例如，可以打印元素的类型
    type <- typeof(element)
    print(type)
  }
}