请写出R语言脚本： 如果每组数据中存在数值0，则保持每组数据不变 如果每组数据均为正值，则进行如下处理

以下是R语言脚本：

# 假设数据存储在一个名为data的数据框中，每组数据存储在一列中

# 检查每列是否存在数值
zeros <- apply(data, 2, function(x) any(x == ))

# 对每列进行处理
for (i in 1:ncol(data)) {
if (zeros[i]) {
# 如果存在，则保持不变
next
} else {
# 如果不存在，则进行处理
data[, i] <- log(data[, i]) # 以自然对数为例，可以根据需要进行修改
}
}