Factor levels must be specified as a character vector (quoted values), so I think the code should be
data$Seq_Type <- factor(data$Seq_Type, c('soc', 'moc'))
If you need more specific help, please provide a proper REPRoducible EXample (reprex) illustrating your issue.