R语言：使用简单随机抽样从tips数据集中抽取样本

以下是R语言代码：

# 载入tips数据集
library(ggplot2)
data(tips)

# 设置种子数
set.seed(123)

# 进行简单随机抽样，有放回等概率抽取50人
sampled_tips <- tips[sample(nrow(tips), 50, replace = TRUE),]

# 查看抽样结果
head(sampled_tips)