以下是一个示例代码，演示如何使用R语言来创建一个保持所有因子变量水平的数据框抽样：

# 创建一个数据框
df <- data.frame(
  x = factor(c("A", "B", "C", "D", "E")),
  y = factor(c("F", "G", "H", "I", "J")),
  z = c(1, 2, 3, 4, 5)
)

# 随机抽取一个因子变量的水平
sample_level <- sample(levels(df$x), 1)

# 使用该水平来创建一个新的数据框
new_df <- df[df$x == sample_level, ]

在上面的代码中，我们首先创建了一个包含因子变量的数据框df，其中x和y是因子变量，z是数值变量。然后，我们使用sample()函数从df$x的水平中随机抽取一个水平，并将其赋值给sample_level变量。接下来，我们使用df$x == sample_level来创建一个逻辑向量，该向量指示了df$x中与sample_level相匹配的观测值。最后，我们使用该逻辑向量来选择满足条件的观测值，并将其存储在new_df中。

请注意，这个示例只是演示了如何抽取一个因子变量的水平。如果想要抽取多个因子变量的水平，可以使用类似的方法，只需在筛选条件中添加逻辑运算符（例如&或|）来组合多个条件。