How to recode Likert scale to many variables

Thank you for your kind reply.

There is a trouble with these labels in R, I still struggle with it:

https://forum.posit.co/t/how-to-remove-a-deeper-attribute-from-a-variable/126495