Bom dia a todos,

Para recomendar adubação fosfatada é necessário classificar a quantidade de fósforo da análise em conjunto a textura do solo.

 Tabela da quinta aproximação 

 

Nível de Fósforo mg/dm3

Argila%

muito baixo

Baixo

Médio

Bom

Muito Bom

60-100

<2.7 (menor e igual)

2.8-5.4

5.5-8

8.1-12

>12

35-60

<4

4.1-8

8.1-12

12.1-18

>18

15-35

<6.6

6.7-12

12.1-20

20.1-30

>30

0-15

<10

10.1-20

20.1-30

30.1-45

>45




Fiz o seguinte:
solo=c(1:50)                       # resultado da análise do solo
argila=c(60,35,15,0)            # teor de argila
p1=c(0,2.7,5.4,8,12)             # fósforo com + de 60% de argila
p2=c(0,4,8,12,18)                # fósforo com 35 a  60% de argila
p3=c(0,6.6,12,20,30)            # fósforo com 15 a  35% de argila
p4=c(0,10,20,30,45)            # fósforo com < 15% de argila
res=c("Muito.Baixo","Baixo", "Medio", "Alto", "Muito.alto")

Assim se o resultado de P é 3.5 :
60% de arg, seria classificado como Baixo
35% de arg. seria classificado como muito baixo

andei dando uma olhada na solução do post 

Uso do ifelse


A saida desta função seria casada com uma recomendação,

Grato a todos

--
Hélio Gallo Rocha
IFSULDEMINAS - Câmpus Muzambinho