Untitled

library(ggplot2)
library(plotly)

## 
## Attaching package: 'plotly'
## 
## The following object is masked from 'package:ggplot2':
## 
##     last_plot
## 
## The following object is masked from 'package:graphics':
## 
##     layout

qlogUN <- read.csv(file.choose(), header=T)
qlogP <- read.csv(file.choose(), header=T)
qlogUN <- qlogUN[,c("ids", "quantlog")]
qlogP <- qlogP[,c("ids", "quantlog")]
qlogMerged <- merge(qlogUN, qlogP, by = "ids")
p <- ggplot(qlogMerged, aes(x=quantlog.x, y=quantlog.y)) + geom_point() + scale_x_log10() + scale_y_log10()
(gg <- ggplotly(p))