Interact Plot Function In R