Было бы проще ответить на ваш вопрос с образцом ваших данных.И обязательно отформатируйте свой код как код.Значение, передаваемое в origin, должно быть датой, в настоящее время это строка.Попробуйте это:
data10180619_Draft_input_temp[nrow(data10180619_Draft_input_temp)+1,] <-as.POSIXlt.character("09:30:02",
format = '%H:%M:%S',
origin=ymd("2019-09-29"))