从标题中提取年份

Question

您好我想从数据框movies$year的标题中提取年份到R中的数据框Title Movie1(2017) Movie2(2018) 。

实际

title    year
Movie1   2017
Movie2   2018

预期：

const toNumber = num => !num ? 0.00 : num;

const formatCurrency = val => isNaN(val) ? '' :
  (parseFloat(toNumber(val))).toLocaleString('en-US', {
    style: 'currency',
    currency: 'USD'
  });

console.log(formatCurrency())
console.log(formatCurrency(''))
console.log(formatCurrency(null))
console.log(formatCurrency(1234.567))
console.log(formatCurrency('1234.567'))
console.log(formatCurrency('abc'))

对于丑陋的帖子感到抱歉，但我无法改善它。我在网上搜索了stackoverflow，但似乎无法找到解决方案。它适用于10.000多部电影的大型数据集。有人可以帮帮我吗？

Answer 1

试试这个解决方案：

玩具数据框

ServerIsBrokenActivity

你的输出：

movies<-data.frame(Title=c("Movie1(2017)","Movie2(2018)"))
movies
         Title
1 Movie1(2017)
2 Movie2(2018)