该给我一组r语言，写一个三位整数各位数字的立方和等于该数本身称该数为水仙花数，编写程序，输出全部水仙花数

当然可以，下面是一个简单的 R 语言程序，用于找出所有的水仙花数：

# 定义一个函数来检查是否为水仙花数
is_narcissistic_number <- function(num) {
  digits <- as.numeric(strsplit(as.character(num), "")[[1]])
  sum_of_cubes <- sum(digits^3)
  return(sum_of_cubes == num)
}

# 使用 lapply 函数遍历所有三位数，并应用 is_narcissistic_number 函数
narcissistic_numbers <- lapply(100:999, is_narcissistic_number)

# 提取并打印出结果
narcissistic_numbers_index <- which(narcissistic_numbers)
print(paste("水仙花数有:", length(narcissistic_numbers_index),
             "个，它们分别是:", unlist(numbers[narcissistic_numbers])))

当你运行这个程序时，它会输出所有满足条件的水仙花数。