Análisis de Proteínas en Pinguinus impennis
melizavitale
1. Introducción
Este análisis utiliza la base de datos UniProt para obtener secuencias de proteínas del Pinguinus impennis. Se analizan características como la composición de aminoácidos, la carga neta a pH 7 y el peso molecular.
2. Cargar librerías y conexión con UniProt
library(UniProt.ws)## Cargando paquete requerido: BiocGenerics##
## Adjuntando el paquete: 'BiocGenerics'## The following objects are masked from 'package:stats':
##
## IQR, mad, sd, var, xtabs## The following objects are masked from 'package:base':
##
## anyDuplicated, aperm, append, as.data.frame, basename, cbind,
## colnames, dirname, do.call, duplicated, eval, evalq, Filter, Find,
## get, grep, grepl, intersect, is.unsorted, lapply, Map, mapply,
## match, mget, order, paste, pmax, pmax.int, pmin, pmin.int,
## Position, rank, rbind, Reduce, rownames, sapply, saveRDS, setdiff,
## table, tapply, union, unique, unsplit, which.max, which.min## Cargando paquete requerido: RSQLitelibrary(Peptides)uniprotDB <- UniProt.ws(taxId=94623)
seqprot <- select(uniprotDB,
keys = keys(uniprotDB, keytype = "UniProtKB")[1:10],
columns = c("sequence"),
keytype = "UniProtKB")3. Conteo de aminoácidos R, W, L y F
conteo_total <- c(R = 0, W = 0, L = 0, F = 0)
for (p in 1:nrow(seqprot)) {
seqAmino <- strsplit(seqprot$Sequence[p], split="")[[1]]
for (i in seqAmino) {
switch(i,
R = {conteo_total["R"] <- conteo_total["R"] + 1},
W = {conteo_total["W"] <- conteo_total["W"] + 1},
L = {conteo_total["L"] <- conteo_total["L"] + 1},
F = {conteo_total["F"] <- conteo_total["F"] + 1}
)
}
}
conteo_total## R W L F
## 80 156 660 353bp <- barplot(conteo_total,
main = "Conteo total de R, W, L y F en 10 Proteínas",
col = c("red", "blue", "green", "purple"),
ylab = "Cantidad", xlab = "Aminoácidos",
ylim = c(0, max(conteo_total) * 1.2))
text(x = bp, y = conteo_total, labels = conteo_total, pos = 3, col = "black", cex = 1.2, font = 2)
4. Carga neta a pH 7
carga_total <- sapply(seqprot$Sequence, function(seq) charge(seq, pH = 7, pKscale = "EMBOSS"))
carga_total## MAPNLRKSHPLLKLINNSLIDLPTPSNISAWWNFGSLLGICLLTQILTGLLLATHYTADTTLAFSSVAHTCRNVQYGWLIRNLHANGASFFFICIYLHIGRGFYYGSYLNKETWNTGIILLLTLMATAFVGYVLPWGQMSFWGATVITNLFSAIPYIGQTLVEWAWGGFSVDNPTLTRFFALHFLLPFMIAGLALIHLTFLHESGSNNPLGILSNCDKIPFHPYFSLKDILGFIIMFLPLTTLALFSPNLLGDPENFTPANPLVTPPHIKPEWYFLFAYAILRSIPNKLGGVLALAASVLVLFLVPLLHKSKQRAMTFRPLSQFLFWTLVANLLILTWVGSQPVEHPFIIIGQLASLTYFTILLLLFPIIGALENKMLNY
## 7.737953
## MTLINRWLFSTNHKDIGTLYLIFGAWAGMVGTALSLLIRAELGQPGTLLGDDQIYNVIVTAHAFVMIFFMVMPIMIGGFGNWLVPLMIGAPDMAFPRMNNMSFWLLPPSFLLLLASSTVEAGAGTGWTVYPPLAGNLAHAGASVDLAIFSLHLAGVSSILGAINFITTAINMKPPALSQYQTPLFVWSVLITAVLLLLSLPVLAAGITMLLTDRNLNTTFFDPAGGGDPVLYQHLFWFFGHPEVYILILPGFGIISHVVTYYAGKKEPFGYMGMVWAMLSIGFLGFIVWAHHMFTVGMDVDTRAYFTSATMIIAIPTGIKVFSWLATLHGGTIKWDPPMLWALGFIFLFTIGGLTGIVLANSSLDIALHDTYYVVAHFHYVLSMGAVFAILAGFTHWFPLLTGYTLHPSWTKAHFGVMFTGVNLTFFPQHFLGLAGMPRRYSDYPDAYTLWNTMSSIGSLISMTAVIMLMFIIWEAFASKRKVLQPELTTTNIEWIHGCPPPYHTFEEPAFVQVQE
## -3.481210
## MLKIILPTFMLLPTALLSPPKFLWTNTTSHSLLIACISLQWLTPTYYPYKTLTLWTGIDQISSPLLVLSCWLLPLMMLASQNHLQHEPQTRKRTFILTLIMVQPFIILAFSTTELMLFYISFEATLIPTLILITRWGNQPERLSAGIYLLFYTLISSLPLLVAILHLHTQAGTLHLMVLQLTHPTLTSSWTSLLSSLALLTAFMVKAPLYGLHLWLPKAHVEAPIAGSMLLAALLLKLGGYGIMRLTIFMTPISNNLCYPFLTLALWGALMTSSICLRQTDLKSLIAYSSVSHMGLVIAATMIQTHWSFSGAMILMISHGLTSSMLFCLANTNYERTHSRILLLTRGLQPLLPLMATWWLLANLTNMALPPTTNLMAELTIMIALFNWSTTTIILTGMATLLTASYTLFMLLMTQRGVLPTHITSIQNSNTREHLLMTLHIMPLLLLIAKPELISGILS
## 12.668595
## MTLINRWLFSTNHKDIGTLYLIFGAWAGMVGTALSLLIRAELGQPGTLLGDDQIYNVIVTAHAFVMIFFMVMPIMIGGFGNWLIPLMIGAPDMAFPRMNNMSFWLLPPSFLLLLASSTVEAGAGTGWTVYPPLAGNLAHAGASVDLAIFSLHLAGVSSILGAINFITTAINMKPPALSQYQTPLFVWSVLITAVLLLLSLPVLAAGITMLLTDRNLNTTFFDPAGGGDPVLYQHLFWFFGHPEVYILILPGFGIISHVVTYYAGKKEPFGYMGMVWAMLSIGFLGFIVWAHHMFTVGMDVDTRAYFTSATMIIAIPTGIKVFSWLATLHGGTIKWDPPMLWALGFIFLFTIGGLTGIVLANSSLDIALHDTYYVVAHFHYVLSMGAVFAILAGFTHWFPLLTGYTLHPSWTKAHFGVMFTGVNLTFFPQHFLGLAGMPRRYSDYPDAYTLWNTMSSIGSLISMTAVIMLMFIIWEAFASKRKVLQPELTTTNIEWIHGCPPPYHTFEEPAFVQVQE
## -3.481210
## MTLINRWLFSTNHKDIGTLYLIFGAWAGMVGTALSLLXRAELGQPGTLLGDDQIYNVIVTAHAFVMIFFMVMPIMIGGFGNWLVPLMIGAPDMAFPRMNNMSFWLLPPSFLLLLASSTVEAGAGTGWTVYPPLAGNLAHAGASVDLAIFSLHLAGVSSILGAINFITTAINMKPPALSQYQTPLFVWSVLITAVLLLLSLPVLAAGITMLLTDRNLNTTFFDPAGGGDPVLYQHLFWFFGHPEVYILILPGFGIISHVVTYYAGKKEPFGYMGMVWAMLSIGFLGFIVWAHHMFTVGMDVDTRAYFTSATMIIAIPTGIKVFSWLATLHGGTIKWDPPMLWALGFIFLFTIGGLTGIVLANSSLDIALHDTYYVVAHFHYVLSMGAVFAILAGFTHWFPLLTGYTLHPSWTKAHFGVMFTGVNLTFFPQHFLGLAGMPRRYSDYPDAYTLWNTMSSIGSLISMTAVIMLMFIIWEAFASKRKVLQPELTTTNIEWIHGCPPPYHTFEEPAFVQVQE
## -3.481210
## MTLINRWLFSTNHKDIGXXXXXFGAWAGMVGTALSLLIRAELGQPGTLLGDDQIYNVIVTAHAFVMIFFMVMPIMIGGFGNWLVPLMIGAPDMAFPRMNNMSFWLLPPSFLLLLASSTVEAGAGTGWTVYPPLAGNLAHAGASVDLAIFSLHLAGVSSILGAINFITTAINMKPPALSQYQTPLFVWSVLITAVLLLLSLPVLAAGITMLLTDRNLNTTFFDPAGGGDPVLYQHLFWFFGHPEVYILILPGFGIISHVVTYYAGKKEPFGYMGMVWAMLSIGFLGFIVWAHHMFTVGMDVDTRAYFTSATMIIAIPTGIKVFSWLATLHGGTIKWDPPMLWALGFIFLFTIGGLTGIVLANSSLDIALHDTYYVVAHFHYVLSMGAVFAILAGFTHWFPLLTGYTLHPSWTKAHFGVMFTGVNLTFFPQHFLGLAGMPRRYSDYPDAYTLWNTMSSIGSLISMTAVIMLMFIIWEAFASKRKVLQPELTTTNXXXXXXXXXPYHTFEEPAFVQVQE
## -2.691273
## MTLINRWLFSTNHKDIGTLYLIFGAWAGXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXNWLVPLMIGAPDMAFPRMNNMSFWLLPPSFLLLLASSTVEAGAGTGWTVYPPLAGNLAHAGASVDLAIFSLXXXGXSSILGAINFITTAINMKPPALSQYQTPLFVWSVLITAVLLLLSLPVLAAGITMLLTDXNLNTTFFDPAGGGDPVLYQHLFWFFGHPEVYILXXXXXXXXXXXXXYYAGKKEPFGYMGMVWAMLSIGFLGFIVWAHHMFTVGMDVDTRAYFTSATMIIAIPTGIKVFSWLATLHGGTIKWDPPMLXXXXXXFLFTIGGLTGIVLANSSLDIALHDTYYVVAHFHYVLSMGAVFAILAGFTHWFPLLTGYTLHPSWTKAHFGVMFTGVNLTFFPQHFLGLAGMPRRYSDYPDAYTLWNTMSSIGSLISMTAVIMLMFIIWEAFASKRKVLQPELTTTNIEWIHGCPPPYHTFEEPAFVXXXX
## -2.205271
## MTLINRWLFSTNHKXIGTLYLIFGAWAGMVGTALSLLIRAELGQPGTLLGXXXXYNVIVTAHAFVMIFFMVMPIMIGGFGNWLVPLMIGAPDMAFPRMNNMSFWLLPPSFLLLLASSTVEAGAGTGWXXXXXXXXXXXXXXXXXXXXXXSLHXXXVSSILGAINFITTAINMKPPALSQYQTPLFVWSVLITAVLLLLSLPVLAAGITMLLTXRNLNTTFFDPAGGGDPVLYQHLFWFFGHPEVYILILPGFGIISHVVTYYAGKKEPFGYMGMVWAMLSIGFLGFIVWAHHMFTVGMDVDTRAYFTSATMIIAIPTGIKVFSWLATLHGGTIKWDPPMLWALGFIFLFTIGGLTGIVLANSSLDIALHDTYYVVAHFHYVLSMGAVFAILAGFTHWFPLLTGXTLHPSWTKAHFGXMFTGXXXXXXXXXXLXXAGMPRRYSDYPDAYTLWNTMSSIGSLISMTAVIMLMFIIWEAFASKRKVLQPELTTTNIEWIHGCPPPYHTFEEPAFVQVQE
## 1.035903
## MTLINRWLFSTNHKDIGTLYLIFGAWAGMVGTALSLLIRAELGQPGTLLGDDQIYNVIVTAHAFVMIFFMVMPIMIGGFGNWLVPLMIGAPDMAFPRMNNMSFWLLPPSFLLLLASSTVEAGAGTGWTVYPPLAGNLAHAGASVDLAIFSLHLAGVSSILGAINFITTAINMKPPALSQYQTPLFVWSVLITAVLLLLSLPVLAAGITMLLXXXNLNTTFFDPAGGGDPVLYQHLFWFFGHPEVYILILPGFGIISHVVTYYAGKKEPFGYMGMVWAMLSIGFLGFIVWAHHMFTVGMDVDTRAYFTSATMIIAIPTGIKVFSWLATLHGGTIKWDPPMLXXXXXIXXFTIGGLTGIVLANSSLDIALHDTYYVVAHFHYVLSMGAVFAILAGFTHWFPLLTGYTLHPSWTKAHFGVMFTGVNLTFFPQHFLGLAGMPRRYSDYPDAYTLWNTMSSIGSXXXXXXXXXLMFIIWEAFASKRKVLQPELTTTNIEWIHGCPPPYHTFEEPAFVQVQE
## -3.482000
## MTLINRWLFSTNHKDIGTLYLIFGAWAXXXGXXXXXXIRAELGQPGTLLGDDQIYNVIVTAHAFVMIFFMVMPIMIGGFGNWLVPLMIGAPDMAFPRMNNMSFWLLPPSFLLLLASSTVEAGAGTGWTVYPPLAGNLAHAGASVDLAIFSLHLAGVSSILGAINFITTAINMKPPALSQYQTPLFVWSVLITAVLLLLSLPVLAAGITMLLTDRNLNTTFFDPAGGGDPVLYQHLFWFFGHPXXXXLILPGFGIISHVVTYYAGKKEPFGYMGMVWAMLSIGFLGFIVWAHHMFTVGMDVDTRAYFTSATMIIAIPTGIKVFSWLATLHGGTIKWDPPMLWALGFIFLFTIGGLTGIVLANSSLDIALHDTYYVVAHFHYVLSMGAVFAILAGFTHWFPLLTGYTLHPSWTKAHFGVMFTGVNLTFFPQHFLGLAGMPRRYSDYPDAYTLWNTMSSIGSLISMTAVIMLMFIIWEAFASKRKVLQPELTTTNXXWIHGCPPPYHTFEEPAFVQVQE
## -1.482931plot(carga_total, type = "o", pch = 16, col = "blue",
main = "Carga neta de proteínas en Pinguinus impennis (pH 7)",
xlab = "Proteína", ylab = "Carga neta",
xaxt = "n", yaxt = "n")
axis(1, at = 1:length(carga_total), labels = paste("P", 1:length(carga_total)))
axis(2, at = c(0, 7, 10), labels = c("0", "7", "10"))
text(1:length(carga_total), carga_total, labels = round(carga_total, 2), pos = 3, col = "black", cex = 0.8, font = 2)
5. Peso molecular
peso_molecular <- sapply(seqprot$Sequence, function(seq) mw(seq))## Warning: Sequence 1 has unrecognized amino acid types. Output value might be
## wrong calculated
## Warning: Sequence 1 has unrecognized amino acid types. Output value might be
## wrong calculated
## Warning: Sequence 1 has unrecognized amino acid types. Output value might be
## wrong calculated
## Warning: Sequence 1 has unrecognized amino acid types. Output value might be
## wrong calculated
## Warning: Sequence 1 has unrecognized amino acid types. Output value might be
## wrong calculated
## Warning: Sequence 1 has unrecognized amino acid types. Output value might be
## wrong calculated
## Warning: Sequence 1 has unrecognized amino acid types. Output value might be
## wrong calculated
## Warning: Sequence 1 has unrecognized amino acid types. Output value might be
## wrong calculated
## Warning: Sequence 1 has unrecognized amino acid types. Output value might be
## wrong calculated
## Warning: Sequence 1 has unrecognized amino acid types. Output value might be
## wrong calculated
## Warning: Sequence 1 has unrecognized amino acid types. Output value might be
## wrong calculated
## Warning: Sequence 1 has unrecognized amino acid types. Output value might be
## wrong calculatedpeso_molecular <- round(peso_molecular)
peso_molecular## MAPNLRKSHPLLKLINNSLIDLPTPSNISAWWNFGSLLGICLLTQILTGLLLATHYTADTTLAFSSVAHTCRNVQYGWLIRNLHANGASFFFICIYLHIGRGFYYGSYLNKETWNTGIILLLTLMATAFVGYVLPWGQMSFWGATVITNLFSAIPYIGQTLVEWAWGGFSVDNPTLTRFFALHFLLPFMIAGLALIHLTFLHESGSNNPLGILSNCDKIPFHPYFSLKDILGFIIMFLPLTTLALFSPNLLGDPENFTPANPLVTPPHIKPEWYFLFAYAILRSIPNKLGGVLALAASVLVLFLVPLLHKSKQRAMTFRPLSQFLFWTLVANLLILTWVGSQPVEHPFIIIGQLASLTYFTILLLLFPIIGALENKMLNY
## 42549
## MTLINRWLFSTNHKDIGTLYLIFGAWAGMVGTALSLLIRAELGQPGTLLGDDQIYNVIVTAHAFVMIFFMVMPIMIGGFGNWLVPLMIGAPDMAFPRMNNMSFWLLPPSFLLLLASSTVEAGAGTGWTVYPPLAGNLAHAGASVDLAIFSLHLAGVSSILGAINFITTAINMKPPALSQYQTPLFVWSVLITAVLLLLSLPVLAAGITMLLTDRNLNTTFFDPAGGGDPVLYQHLFWFFGHPEVYILILPGFGIISHVVTYYAGKKEPFGYMGMVWAMLSIGFLGFIVWAHHMFTVGMDVDTRAYFTSATMIIAIPTGIKVFSWLATLHGGTIKWDPPMLWALGFIFLFTIGGLTGIVLANSSLDIALHDTYYVVAHFHYVLSMGAVFAILAGFTHWFPLLTGYTLHPSWTKAHFGVMFTGVNLTFFPQHFLGLAGMPRRYSDYPDAYTLWNTMSSIGSLISMTAVIMLMFIIWEAFASKRKVLQPELTTTNIEWIHGCPPPYHTFEEPAFVQVQE
## 56939
## MLKIILPTFMLLPTALLSPPKFLWTNTTSHSLLIACISLQWLTPTYYPYKTLTLWTGIDQISSPLLVLSCWLLPLMMLASQNHLQHEPQTRKRTFILTLIMVQPFIILAFSTTELMLFYISFEATLIPTLILITRWGNQPERLSAGIYLLFYTLISSLPLLVAILHLHTQAGTLHLMVLQLTHPTLTSSWTSLLSSLALLTAFMVKAPLYGLHLWLPKAHVEAPIAGSMLLAALLLKLGGYGIMRLTIFMTPISNNLCYPFLTLALWGALMTSSICLRQTDLKSLIAYSSVSHMGLVIAATMIQTHWSFSGAMILMISHGLTSSMLFCLANTNYERTHSRILLLTRGLQPLLPLMATWWLLANLTNMALPPTTNLMAELTIMIALFNWSTTTIILTGMATLLTASYTLFMLLMTQRGVLPTHITSIQNSNTREHLLMTLHIMPLLLLIAKPELISGILS
## 51282
## MTLINRWLFSTNHKDIGTLYLIFGAWAGMVGTALSLLIRAELGQPGTLLGDDQIYNVIVTAHAFVMIFFMVMPIMIGGFGNWLIPLMIGAPDMAFPRMNNMSFWLLPPSFLLLLASSTVEAGAGTGWTVYPPLAGNLAHAGASVDLAIFSLHLAGVSSILGAINFITTAINMKPPALSQYQTPLFVWSVLITAVLLLLSLPVLAAGITMLLTDRNLNTTFFDPAGGGDPVLYQHLFWFFGHPEVYILILPGFGIISHVVTYYAGKKEPFGYMGMVWAMLSIGFLGFIVWAHHMFTVGMDVDTRAYFTSATMIIAIPTGIKVFSWLATLHGGTIKWDPPMLWALGFIFLFTIGGLTGIVLANSSLDIALHDTYYVVAHFHYVLSMGAVFAILAGFTHWFPLLTGYTLHPSWTKAHFGVMFTGVNLTFFPQHFLGLAGMPRRYSDYPDAYTLWNTMSSIGSLISMTAVIMLMFIIWEAFASKRKVLQPELTTTNIEWIHGCPPPYHTFEEPAFVQVQE
## 56953
## MTLINRWLFSTNHKDIGTLYLIFGAWAGMVGTALSLLXRAELGQPGTLLGDDQIYNVIVTAHAFVMIFFMVMPIMIGGFGNWLVPLMIGAPDMAFPRMNNMSFWLLPPSFLLLLASSTVEAGAGTGWTVYPPLAGNLAHAGASVDLAIFSLHLAGVSSILGAINFITTAINMKPPALSQYQTPLFVWSVLITAVLLLLSLPVLAAGITMLLTDRNLNTTFFDPAGGGDPVLYQHLFWFFGHPEVYILILPGFGIISHVVTYYAGKKEPFGYMGMVWAMLSIGFLGFIVWAHHMFTVGMDVDTRAYFTSATMIIAIPTGIKVFSWLATLHGGTIKWDPPMLWALGFIFLFTIGGLTGIVLANSSLDIALHDTYYVVAHFHYVLSMGAVFAILAGFTHWFPLLTGYTLHPSWTKAHFGVMFTGVNLTFFPQHFLGLAGMPRRYSDYPDAYTLWNTMSSIGSLISMTAVIMLMFIIWEAFASKRKVLQPELTTTNIEWIHGCPPPYHTFEEPAFVQVQE
## 56826
## MTLINRWLFSTNHKDIGXXXXXFGAWAGMVGTALSLLIRAELGQPGTLLGDDQIYNVIVTAHAFVMIFFMVMPIMIGGFGNWLVPLMIGAPDMAFPRMNNMSFWLLPPSFLLLLASSTVEAGAGTGWTVYPPLAGNLAHAGASVDLAIFSLHLAGVSSILGAINFITTAINMKPPALSQYQTPLFVWSVLITAVLLLLSLPVLAAGITMLLTDRNLNTTFFDPAGGGDPVLYQHLFWFFGHPEVYILILPGFGIISHVVTYYAGKKEPFGYMGMVWAMLSIGFLGFIVWAHHMFTVGMDVDTRAYFTSATMIIAIPTGIKVFSWLATLHGGTIKWDPPMLWALGFIFLFTIGGLTGIVLANSSLDIALHDTYYVVAHFHYVLSMGAVFAILAGFTHWFPLLTGYTLHPSWTKAHFGVMFTGVNLTFFPQHFLGLAGMPRRYSDYPDAYTLWNTMSSIGSLISMTAVIMLMFIIWEAFASKRKVLQPELTTTNXXXXXXXXXPYHTFEEPAFVQVQE
## 55302
## MTLINRWLFSTNHKDIGTLYLIFGAWAGXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXNWLVPLMIGAPDMAFPRMNNMSFWLLPPSFLLLLASSTVEAGAGTGWTVYPPLAGNLAHAGASVDLAIFSLXXXGXSSILGAINFITTAINMKPPALSQYQTPLFVWSVLITAVLLLLSLPVLAAGITMLLTDXNLNTTFFDPAGGGDPVLYQHLFWFFGHPEVYILXXXXXXXXXXXXXYYAGKKEPFGYMGMVWAMLSIGFLGFIVWAHHMFTVGMDVDTRAYFTSATMIIAIPTGIKVFSWLATLHGGTIKWDPPMLXXXXXXFLFTIGGLTGIVLANSSLDIALHDTYYVVAHFHYVLSMGAVFAILAGFTHWFPLLTGYTLHPSWTKAHFGVMFTGVNLTFFPQHFLGLAGMPRRYSDYPDAYTLWNTMSSIGSLISMTAVIMLMFIIWEAFASKRKVLQPELTTTNIEWIHGCPPPYHTFEEPAFVXXXX
## 48303
## MTLINRWLFSTNHKXIGTLYLIFGAWAGMVGTALSLLIRAELGQPGTLLGXXXXYNVIVTAHAFVMIFFMVMPIMIGGFGNWLVPLMIGAPDMAFPRMNNMSFWLLPPSFLLLLASSTVEAGAGTGWXXXXXXXXXXXXXXXXXXXXXXSLHXXXVSSILGAINFITTAINMKPPALSQYQTPLFVWSVLITAVLLLLSLPVLAAGITMLLTXRNLNTTFFDPAGGGDPVLYQHLFWFFGHPEVYILILPGFGIISHVVTYYAGKKEPFGYMGMVWAMLSIGFLGFIVWAHHMFTVGMDVDTRAYFTSATMIIAIPTGIKVFSWLATLHGGTIKWDPPMLWALGFIFLFTIGGLTGIVLANSSLDIALHDTYYVVAHFHYVLSMGAVFAILAGFTHWFPLLTGXTLHPSWTKAHFGXMFTGXXXXXXXXXXLXXAGMPRRYSDYPDAYTLWNTMSSIGSLISMTAVIMLMFIIWEAFASKRKVLQPELTTTNIEWIHGCPPPYHTFEEPAFVQVQE
## 52153
## MTLINRWLFSTNHKDIGTLYLIFGAWAGMVGTALSLLIRAELGQPGTLLGDDQIYNVIVTAHAFVMIFFMVMPIMIGGFGNWLVPLMIGAPDMAFPRMNNMSFWLLPPSFLLLLASSTVEAGAGTGWTVYPPLAGNLAHAGASVDLAIFSLHLAGVSSILGAINFITTAINMKPPALSQYQTPLFVWSVLITAVLLLLSLPVLAAGITMLLXXXNLNTTFFDPAGGGDPVLYQHLFWFFGHPEVYILILPGFGIISHVVTYYAGKKEPFGYMGMVWAMLSIGFLGFIVWAHHMFTVGMDVDTRAYFTSATMIIAIPTGIKVFSWLATLHGGTIKWDPPMLXXXXXIXXFTIGGLTGIVLANSSLDIALHDTYYVVAHFHYVLSMGAVFAILAGFTHWFPLLTGYTLHPSWTKAHFGVMFTGVNLTFFPQHFLGLAGMPRRYSDYPDAYTLWNTMSSIGSXXXXXXXXXLMFIIWEAFASKRKVLQPELTTTNIEWIHGCPPPYHTFEEPAFVQVQE
## 54771
## MTLINRWLFSTNHKDIGTLYLIFGAWAXXXGXXXXXXIRAELGQPGTLLGDDQIYNVIVTAHAFVMIFFMVMPIMIGGFGNWLVPLMIGAPDMAFPRMNNMSFWLLPPSFLLLLASSTVEAGAGTGWTVYPPLAGNLAHAGASVDLAIFSLHLAGVSSILGAINFITTAINMKPPALSQYQTPLFVWSVLITAVLLLLSLPVLAAGITMLLTDRNLNTTFFDPAGGGDPVLYQHLFWFFGHPXXXXLILPGFGIISHVVTYYAGKKEPFGYMGMVWAMLSIGFLGFIVWAHHMFTVGMDVDTRAYFTSATMIIAIPTGIKVFSWLATLHGGTIKWDPPMLWALGFIFLFTIGGLTGIVLANSSLDIALHDTYYVVAHFHYVLSMGAVFAILAGFTHWFPLLTGYTLHPSWTKAHFGVMFTGVNLTFFPQHFLGLAGMPRRYSDYPDAYTLWNTMSSIGSLISMTAVIMLMFIIWEAFASKRKVLQPELTTTNXXWIHGCPPPYHTFEEPAFVQVQE
## 55306plot(peso_molecular, type = "h", col = "purple",
main = "Peso Molecular de 10 Proteínas",
xlab = "Proteína", ylab = "Peso Molecular",
ylim = c(0,max(peso_molecular) * 1.2))
text(1:length(peso_molecular), peso_molecular, labels = peso_molecular,
pos = 3, cex = 0.8, col = "black")