在数据框中添加新列

如果我想在数据框中添加新列(前两列的除数),这是正确的方法吗?

Newcolumn <- sum(Data$column1)/sum(Data$column2)
NewcolumnCol<- data.frame(Newcolumn,col.names=Newcolumn) 
allData <- merge(Newcolumn, Data)