Yet is ambiguous to track what you want to do. Please provide a minimal reproducible code with your sample data. Use reprexhttps://reprex.tidyverse.org/ package to achieve this. Or, else you can provide a link to access some sample data. Take an example down here for a reproducible case;
datanew <- data.frame( Marker = rep("u1", 5),
value = c(rep(0, 2), rep(1, 3) ),
Traints = c( "Jul.10", "Aug.27", "Oct.01", "Jul.10", "Jan.25"),
audpc = c( 10.5, 131, 55, 150, 98) )
datanew
#> Marker value Traints audpc
#> 1 u1 0 Jul.10 10.5
#> 2 u1 0 Aug.27 131.0
#> 3 u1 1 Oct.01 55.0
#> 4 u1 1 Jul.10 150.0
#> 5 u1 1 Jan.25 98.0