R使用循环和生成新列进行数据操作

我有电影和影院的数据，例如：

Theater   , MovieGenre , MovieName , Ticket Sales 
A            Comedy           aa       100
A            Romance          bb        70
A            Action           cc        80
B            Comedy           aa        120
B            Romance          cc        90
B            Romance         dd         50
C            Comedy          aa         87
C            Comedy          ee         86
C            Action          cc         76

我正试图建立一个循环，在这个循环中，它提供基于剧院的门票销售 例如：

A 250
B 260
C 249 

我正在使用子集：

Select = subset(data, Theater ==A) 

---

但这让我每次都把剧院的字母表。如何在构建向量的过程中实现自动化。

尝试使用tapply在组内应用所需的功能，在这种情况下，这将是sum：

 > dat <- read.table(text="Theater MovieGenre  MovieName  TicketSales 
+ A            Comedy           aa       100
+ A            Romance          bb        70
+ A            Action           cc        80
+ B            Comedy           aa        120
+ B            Romance          cc        90
+ B            Romance         dd         50
+ C            Comedy          aa         87
+ C            Comedy          ee         86
+ C            Action          cc         76", header=TRUE)
> with(dat, tapply(TicketSales, Theater, sum))
  A   B   C 
250 260 249 

>dat与（dat、tapply（票务、剧院、金额））
A、B、C
250 260 249 

此问题格式不正确。长线（以“剧院”开头）应该是什么。那是跨越两条线的一行吗？第三个逗号后的所有内容都是单个单元格吗？