在R中，可以使用table()函数来按列分组并计算每列中元素的数量。下面是一个代码示例：

# 创建一个数据框
df <- data.frame(
  A = c("apple", "banana", "apple", "banana", "apple"),
  B = c("orange", "orange", "grape", "grape", "grape"),
  C = c("apple", "orange", "grape", "banana", "apple")
)

# 按列计算元素数量
count <- lapply(df, table)

# 打印结果
print(count)

输出结果为：

$A
A
 apple banana 
     3      2 

$B
B
 grape orange 
     3      2 

$C
C
 apple banana grape orange 
     2      1      1      1 

在上述代码中，我们创建了一个包含三列的数据框 df。然后，我们使用 lapply() 函数对数据框的每一列应用 table() 函数，从而得到每列元素的数量统计。最后，我们通过 print() 函数打印结果。