Disociación

if(!require("pacman"))   install.packages("pacman")

## Loading required package: pacman

library("pacman")

p_load("vroom", #llamar bases de datos
       "dplyr", #facilita el manejo de datos
       "ggplot2") #graficar

Melting <- vroom(file="https://raw.githubusercontent.com/danielmaciasmont-sketch/Metabolomica/refs/heads/main/disociacion.csv")

## Rows: 61 Columns: 7
## ── Column specification ────────────────────────────────────────────────────────
## Delimiter: ","
## dbl (7): Temperature, A1, A2, A3, A4, A5, A6
## 
## ℹ Use `spec()` to retrieve the full column specification for this data.
## ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.

Melting

## # A tibble: 61 × 7
##    Temperature     A1     A2     A3     A4     A5     A6
##          <dbl>  <dbl>  <dbl>  <dbl>  <dbl>  <dbl>  <dbl>
##  1        65   18555. 18183. 18744. 20958. 23408. 18941.
##  2        65.5 18501. 18087. 18612. 20806. 23407. 18855.
##  3        66   18448. 17991. 18480. 20655. 23405. 18769.
##  4        66.5 18394. 17895. 18348. 20504. 23404. 18682.
##  5        67   18340. 17799. 18216. 20353. 23403. 18596.
##  6        67.5 18286. 17703. 18085. 20202. 23402. 18510.
##  7        68   18233. 17607. 17953. 20050. 23400. 18424.
##  8        68.5 18162. 17496. 17787. 19859. 23321. 18295.
##  9        69   18071. 17367. 17594. 19640. 23171. 18130.
## 10        69.5 17958. 17219. 17381. 19403. 22952. 17930.
## # ℹ 51 more rows

grafica <- ggplot(Melting,
                  mapping = aes(x = Temperature,
                                y= A6))+
                    geom_line(color="#9527F5",
                              size=0.5)+
                    theme_classic()+
                    labs(Title="curva de disosiacion",
                         subtitle = "Cerebro 100 ug",
                         caption = "Diseñado por Fernada Zúñiga",
                         X="temperatura",
                         Y="fluorescencia") +
  geom_point(size=0.5, color="#46166E")

## Warning: Using `size` aesthetic for lines was deprecated in ggplot2 3.4.0.
## ℹ Please use `linewidth` instead.
## This warning is displayed once every 8 hours.
## Call `lifecycle::last_lifecycle_warnings()` to see where this warning was
## generated.

grafica

## Ignoring unknown labels:
## • Title : "curva de disosiacion"
## • X : "temperatura"
## • Y : "fluorescencia"