为R中具有相同符号的每个连续数字范围分配值

I'm trying to create a data frame where a column exists that holds values representing the length of runs of positive and negative numbers, like so:I'm trying to create a data frame where a colum