利用R数据实现以下功能： 从天猫网站爬取的电视销售数据（tianmaoTV.xlsx，见data文件夹）包含商品名称、商品描述、现价、原价、月销量、库存、店铺ID、店铺名称、评分、收藏数、累计评价数、毛重、品牌、电视类型和屏幕尺寸共15个变量。将数据读进R并保存为tianmao1数据集，并按照不同品牌计算不同店铺的销量，并保存在bshoptop3数据框中。

要实现这个功能，你可以使用以下代码：

 安装和加载所需的包
install.packages("readxl")
install.packages("dplyr")
library(readxl)
library(dplyr)

# 读取Excel文件并保存为tianmao1数据集
tianmao1 <- read_excel("data/tianmaoTV.xlsx")

# 按照不同品牌和店铺计算销量，并保存在bshoptop3数据框中
bshoptop3 <- tianmao1 %>%
  group_by(品牌, 店铺名称) %>%
  summarize(销量总和 = sum(月销量)) %>%
  arrange(desc(销量总和)) %>%
  top_n(3)

# 查看bshoptop3数据框
bshoptop3

请确保将"tianmaoTV.xlsx"文件放在名为"data"的文件夹中，或者根据你的实际文件路径进行相应修改。上述代码将读取Excel文件并将数据保存在名为"tianmao1"的数据集中。然后，它使用`group_by`和`summarize`函数按照不同品牌和店铺计算销量，并将结果保存在名为"bshoptop3"的数据框中。最后，你可以查看bshoptop3数据框，其中包含按不同品牌计算的不同店铺的销量前三名。